diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-06-19 11:33:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-19 19:03:07 +0000 |
| commit | 601f2d16e592dad4a4b6a344fbe935aa06230d2e (patch) | |
| tree | b500d8f3bec9347ac0ab84287841e0d7c46c20d0 /lib/warnings.t | |
| parent | 47af93600f5196082b45ca5744631cd71ddc84b3 (diff) | |
| download | perl-601f2d16e592dad4a4b6a344fbe935aa06230d2e.tar.gz | |
[ID 20010619.007] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-perlio 4.0f (UNINSTALLED)
Message-Id: <200106191933.PAA08415@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@10730
Diffstat (limited to 'lib/warnings.t')
| -rw-r--r-- | lib/warnings.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index 09b41fbd64..addcea2bd3 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -21,9 +21,9 @@ my @prgs = () ; my @w_files = () ; if (@ARGV) - { print "ARGV = [@ARGV]\n" ; @w_files = map { s#^#./pragma/warn/#; $_ } @ARGV } + { print "ARGV = [@ARGV]\n" ; @w_files = map { s#^#./lib/warnings/#; $_ } @ARGV } else - { @w_files = sort glob("pragma/warn/*") } + { @w_files = sort glob("lib/warnings/*") } my $files = 0; foreach my $file (@w_files) { |