diff options
| author |   millert <millert@openbsd.org> | 1999-04-29 22:50:42 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 1999-04-29 22:50:42 +0000 |
| commit | 6345ca90897845000e1f48f7d44c6708faafc8fe (patch) | |
| tree | e7174a5c6faa27f561efe81248738dbd85a405a2 /gnu/usr.bin/perl/lib/File/CheckTree.pm | |
| parent | perl5.005_03 (diff) | |
| download | wireguard-openbsd-6345ca90897845000e1f48f7d44c6708faafc8fe.tar.xz wireguard-openbsd-6345ca90897845000e1f48f7d44c6708faafc8fe.zip | |
perl5.005_03 (stock)
Diffstat (limited to 'gnu/usr.bin/perl/lib/File/CheckTree.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/File/CheckTree.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/lib/File/CheckTree.pm b/gnu/usr.bin/perl/lib/File/CheckTree.pm index a39308b6c96..dca7f6aff31 100644 --- a/gnu/usr.bin/perl/lib/File/CheckTree.pm +++ b/gnu/usr.bin/perl/lib/File/CheckTree.pm @@ -137,13 +137,13 @@ sub valmess { $mess =~ s/ does not / should not / || $mess =~ s/ not / /; } - print STDERR $mess,"\n"; } else { $this =~ s/\$file/'$file'/g; - print STDERR "Can't do $this.\n"; + $mess = "Can't do $this.\n"; } - if ($disposition eq 'die') { exit 1; } + die "$mess\n" if $disposition eq 'die'; + warn "$mess\n"; ++$warnings; } |