diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-09-18 15:53:48 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-19 01:23:55 +0000 |
| commit | 0cd946aa8ca5f84826831f3a54bb81945edfa014 (patch) | |
| tree | 94e11dea806b85281382e594c8e5c36b98608b97 /lib/Test/More.pm | |
| parent | ea63ed0e75f87f41b120354ed354081869ee56fc (diff) | |
| download | perl-0cd946aa8ca5f84826831f3a54bb81945edfa014.tar.gz | |
[PATCH] Syncing with Test::Simple 0.19
Date: Tue, 18 Sep 2001 19:53:48 -0400
Message-Id: <20010918195348.M585@blackrider>
Subject: [REPATCH] Re: [PATCH lib/Test/More.pm] Stray newline confusing t/TEST
From: Michael G Schwern <schwern@pobox.com>
Date: Tue, 18 Sep 2001 22:07:13 -0400
Message-Id: <20010918220713.B19616@blackrider>
p4raw-id: //depot/perl@12080
Diffstat (limited to 'lib/Test/More.pm')
| -rw-r--r-- | lib/Test/More.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Test/More.pm b/lib/Test/More.pm index 925e48edca..92d1d88ba3 100644 --- a/lib/Test/More.pm +++ b/lib/Test/More.pm @@ -14,7 +14,7 @@ BEGIN { require Exporter; use vars qw($VERSION @ISA @EXPORT $TODO); -$VERSION = '0.18'; +$VERSION = '0.19'; @ISA = qw(Exporter); @EXPORT = qw(ok use_ok require_ok is isnt like @@ -567,6 +567,7 @@ USE my $ok = ok( !$@, "use $module;" ); unless( $ok ) { + chomp $@; my_print *TESTERR, <<DIAGNOSTIC; # Tried to use '$module'. # Error: $@ @@ -598,6 +599,7 @@ REQUIRE my $ok = ok( !$@, "require $module;" ); unless( $ok ) { + chomp $@; my_print *TESTERR, <<DIAGNOSTIC; # Tried to require '$module'. # Error: $@ |