diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 09:31:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 09:31:34 +0000 |
| commit | 9b599b2a63d2324ddacddd9710c41b795a95070d (patch) | |
| tree | 4180f11ca1ddccb984799ab74df847e9f64f1213 /lib/File | |
| parent | 491527d0220de34ec13035d557e288c9952d1007 (diff) | |
| download | perl-9b599b2a63d2324ddacddd9710c41b795a95070d.tar.gz | |
[win32] merge change#887 from maintbranch
p4raw-link: @887 on //depot/maint-5.004/perl: 6cdf74fe31f049dc2164dbb9e6242179d4b8ee1f
p4raw-id: //depot/win32/perl@937
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/CheckTree.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/File/CheckTree.pm b/lib/File/CheckTree.pm index a39308b6c9..dca7f6aff3 100644 --- a/lib/File/CheckTree.pm +++ b/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; } |