diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 13:26:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 13:26:18 +0000 |
| commit | d545c394e5c9b2cab90b525c32de553e3d5bbfb8 (patch) | |
| tree | 8908c92c911b92494380d4effebdb48770790ba8 /perl-install/standalone | |
| parent | e3988c821c58082788d4d52ddbd6d084ae898ccb (diff) | |
| download | drakx-d545c394e5c9b2cab90b525c32de553e3d5bbfb8.tar drakx-d545c394e5c9b2cab90b525c32de553e3d5bbfb8.tar.gz drakx-d545c394e5c9b2cab90b525c32de553e3d5bbfb8.tar.bz2 drakx-d545c394e5c9b2cab90b525c32de553e3d5bbfb8.tar.xz drakx-d545c394e5c9b2cab90b525c32de553e3d5bbfb8.zip | |
don't use <*> for globbing, use all or glob_
Diffstat (limited to 'perl-install/standalone')
| -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)?$/); } |