From 601f2d16e592dad4a4b6a344fbe935aa06230d2e Mon Sep 17 00:00:00 2001 From: Spider Boardman Date: Tue, 19 Jun 2001 11:33:25 -0400 Subject: [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 --- lib/warnings.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') 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) { -- cgit v1.2.1