diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-03-15 12:12:43 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-03-15 12:12:43 +0200 |
commit | 32ad59e0a9c7f74c7c094d5091bce435c145fe33 (patch) | |
tree | fd16d21eaaed41b3b6c58e8db4d36be854022af1 /lib | |
parent | 66972a8ed32f71ad5ef46bb54e443aa6d99b2723 (diff) | |
download | acmeman-32ad59e0a9c7f74c7c094d5091bce435c145fe33.tar.gz acmeman-32ad59e0a9c7f74c7c094d5091bce435c145fe33.tar.bz2 |
Multiple 'source' configuration statements.v1.10
* Changes: Version 1.10
* MANIFEST.SKIP: Update.
* acmeman: Treat 'source' as multiple keyword.
* lib/App/Acmeman/Source/File.pm (new): Append /* only to directory
names.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/App/Acmeman/Source/File.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/App/Acmeman/Source/File.pm b/lib/App/Acmeman/Source/File.pm index 48a4010..0d6859d 100644 --- a/lib/App/Acmeman/Source/File.pm +++ b/lib/App/Acmeman/Source/File.pm @@ -17,7 +17,9 @@ sub new { 'host|h=s' => \$host); unless ($pattern =~ m{[][*?]}) { $pattern =~ s{/$}{}; - $pattern = File::Spec->catfile($pattern, '*'); + if (-d $pattern) { + $pattern = File::Spec->catfile($pattern, '*'); + } } bless { pattern => $pattern, ignore => $ignore, |