diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-03-15 03:29:17 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-03-15 03:29:17 +0000 |
| commit | e894474e65f79489f565f73d183abc1927afc1b7 (patch) | |
| tree | db8a13f20c2482003d189fc9637efb8536814ea4 /ext | |
| parent | 85ae4ab3da7041eabf6b79623afe7d0d2a090aaa (diff) | |
| download | perl-e894474e65f79489f565f73d183abc1927afc1b7.tar.gz | |
Add VMS' default to the CGI.pm temp list (should update to File::Spec)
p4raw-id: //depot/vmsperl@5750
p4raw-integrated: from //depot/perl@5749 'merge in'
ext/File/Glob/Glob.pm (@5507..)
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/File/Glob/Glob.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm index 0678ade5ec..4b7e54b9e3 100644 --- a/ext/File/Glob/Glob.pm +++ b/ext/File/Glob/Glob.pm @@ -60,7 +60,7 @@ sub import { $DEFAULT_FLAGS &= ~GLOB_NOCASE() if $1 eq 'case'; $DEFAULT_FLAGS |= GLOB_NOCASE() if $1 eq 'nocase'; if ($1 eq 'globally') { - local $^W; + no warnings; *CORE::GLOBAL::glob = \&File::Glob::csh_glob; } next; @@ -111,9 +111,6 @@ if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) { sub glob { my ($pat,$flags) = @_; $flags = $DEFAULT_FLAGS if @_ < 2; - if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) { - $flags |= GLOB_NOCASE(); - } return doglob($pat,$flags); } |