diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 07:53:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 07:53:51 +0000 |
| commit | db376a245d40f9f81e37632708a9ad2cfc67ef6a (patch) | |
| tree | 8c6efaa9d96c8eab8c80c68fe4e15d92aec8f7b4 /lib/ExtUtils | |
| parent | 65e1a3a11dd767e7393f37a7bd811ce587d64985 (diff) | |
| download | perl-db376a245d40f9f81e37632708a9ad2cfc67ef6a.tar.gz | |
use warnings rather than fiddling with $^W (from Paul Marquess)
p4raw-id: //depot/perl@4954
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 2 | ||||
| -rw-r--r-- | lib/ExtUtils/MM_Win32.pm | 1 | ||||
| -rw-r--r-- | lib/ExtUtils/Manifest.pm | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index f4329e13d7..c5cf7066bf 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -2766,7 +2766,7 @@ sub parse_version { $_ }; \$$2 }; - local($^W) = 0; + no warnings; $result = eval($eval); warn "Could not eval '$eval' in $parsefile: $@" if $@; $result = "undef" unless defined $result; diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm index 534f26d823..e08c6791ee 100644 --- a/lib/ExtUtils/MM_Win32.pm +++ b/lib/ExtUtils/MM_Win32.pm @@ -388,7 +388,6 @@ PM_TO_BLIB = }.join(" \\\n\t", %{$self->{PM}}).q{ sub path { - local $^W = 1; my($self) = @_; my $path = $ENV{'PATH'} || $ENV{'Path'} || $ENV{'path'}; my @path = split(';',$path); diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm index 58c91bc44b..8bb3fc8ebd 100644 --- a/lib/ExtUtils/Manifest.pm +++ b/lib/ExtUtils/Manifest.pm @@ -25,7 +25,7 @@ $MANIFEST = 'MANIFEST'; # Really cool fix from Ilya :) unless (defined $Config{d_link}) { - local $^W; + no warnings; *ln = \&cp; } |