diff options
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index 12793971f..84ed955c0 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -299,7 +299,7 @@ sub expand_tree chdir( $dir ); - foreach $dir_entry ( <*> ) { + foreach $dir_entry (all(".")) { if (( -d $dir_entry ) or ( $dir_entry =~ /\.o(\.gz)?$/)) { $path = $dir . "/" . $dir_entry; $path =~ s|//|/|g; @@ -403,7 +403,7 @@ sub has_sub_trees my ( $dir ) = @_; my $file; - foreach $file ( <$dir/*> ) { + foreach $file (glob_("$dir/*")) { return 1 if ( -d $file ) or ($file =~ /\.o(\.gz)?$/); } |