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) = @_;