don't use <*> for globbing, use all or glob_

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)?$/);
     }