From be11781b7d5174124c299671ed0413bd9b0e06cf Mon Sep 17 00:00:00 2001 From: short <> Date: Thu, 10 Jul 2003 18:59:27 +0000 Subject: [PATCH] Filename globbing made perl-5.6.0 backward compatible. --- AutoGen.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/AutoGen.pm b/AutoGen.pm index 4bbb8fd..796733e 100644 --- a/AutoGen.pm +++ b/AutoGen.pm @@ -38,7 +38,6 @@ BEGIN { use File::chdir; # $CWD use File::Touch; # &touch use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG); - use File::Glob qw(:glob); # &bsd_glob, &GLOB_* HERE eval "$_\n; 1;" or push @missing,(/^\s*use\s+([^ ;]+)/)[0]; } @@ -122,8 +121,7 @@ my(@files)=@_; my $nocheck=shift @files if $files[0] eq "nocheck"; my $dest=pop @files; # expand pattern to properly match © resulting filenames count - @files=map({ bsd_glob $_,&GLOB_ERR|&GLOB_NOSORT; } @files); - confess "$!" if $File::Glob::GLOB_ERROR; + @files=map({ glob $_; } @files); @files==copy @files,$dest or $nocheck or confess "$!"; } @@ -134,9 +132,8 @@ my(@files)=@_; my $nocheck=shift @files if $files[0] eq "nocheck"; my $flag=shift @files if ref $files[0]; - # expand pattern to properly match © resulting filenames count - @files=map({ bsd_glob $_,&GLOB_ERR|&GLOB_NOSORT; } @files); - confess "$!" if $File::Glob::GLOB_ERROR; + # expand pattern to properly match &remove resulting filenames count + @files=map({ glob $_; } @files); @files==remove((!$flag ? () : $flag),@files) or $nocheck or confess "$!"; } -- 1.8.3.1