summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfloppy4
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)?$/);
}