summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xdraklive9
1 files changed, 8 insertions, 1 deletions
diff --git a/draklive b/draklive
index e27b10a..9d704f0 100755
--- a/draklive
+++ b/draklive
@@ -301,6 +301,13 @@ sub moddeps_closure {
sub directory_usage { first(split /\s/, `du -sb $_[0]`) }
+#- expand only if the pattern contains '*'
+#- and matches dot characters (like shell dotglob)
+sub glob__ {
+ my ($pattern) = @_;
+ $pattern =~ /\*/ ? glob_($pattern) : $pattern;
+}
+
sub run_ {
my $options = ref $_[0] eq 'HASH' ? shift @_ : {};
my @cmd = @_;
@@ -674,7 +681,7 @@ sub copy_files_to {
my ($source, $dest, $o_perm) = @$_;
$dest = $root . '/' . $dest;
mkdir_p($dest =~ m|/$| ? $dest : dirname($dest));
- my @sources = glob_($live->{settings}{config_root} . '/' . $source);
+ my @sources = glob__($live->{settings}{config_root} . '/' . $source);
print STDERR "copying @sources to $dest\n";
cp_f(@sources, $dest);
chmod $o_perm, $dest if $o_perm;