summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 13:26:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 13:26:18 +0000
commitd545c394e5c9b2cab90b525c32de553e3d5bbfb8 (patch)
tree8908c92c911b92494380d4effebdb48770790ba8 /perl-install/standalone
parente3988c821c58082788d4d52ddbd6d084ae898ccb (diff)
downloaddrakx-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-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)?$/);
}