diff options
| author | John Peacock <jpeacock@rowman.com> | 2006-05-22 15:08:03 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-23 07:23:48 +0000 |
| commit | c0b17f21fab4979f8ef6bccb58a7d0fe471b35e3 (patch) | |
| tree | 3506b679f27281c3efdf9fb147748df75aa92974 /lib/version.t | |
| parent | 20de43d3034ec586969afca80b4fd86708142401 (diff) | |
| download | perl-c0b17f21fab4979f8ef6bccb58a7d0fe471b35e3.tar.gz | |
Re: [PATCH - DUH] Synchronize bleadperl with version-0.60
Message-ID: <44724453.5090606@rowman.com>
p4raw-id: //depot/perl@28288
Diffstat (limited to 'lib/version.t')
| -rw-r--r-- | lib/version.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/version.t b/lib/version.t index 05c0965d51..055531ce36 100644 --- a/lib/version.t +++ b/lib/version.t @@ -57,6 +57,12 @@ eval { my $test = $testobj > 1.0 }; like($@, qr/Invalid version object/, "Bad subclass vcmp"); +# dummy up a redundant call to satify David Wheeler +local $SIG{__WARN__} = sub { die $_[0] }; +eval 'use version;'; +unlike ($@, qr/^Subroutine main::qv redefined/, + "Only export qv once per package (to prevent redefined warnings)."); + sub BaseTests { my ($CLASS, $no_qv) = @_; |