From d545c394e5c9b2cab90b525c32de553e3d5bbfb8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 13:26:18 +0000
Subject: don't use <*> for globbing, use all or glob_

---
 perl-install/standalone/drakfloppy | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

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)?$/);
     }
 
-- 
cgit v1.2.1