This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/version.t: suppress warning
authorFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 04:40:06 +0000 (20:40 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:45:31 +0000 (01:45 -0800)
lib/version.t

index ce46fa2..a92a2ad 100644 (file)
@@ -330,7 +330,7 @@ sub BaseTests {
     
     diag "test with version class names" unless $ENV{PERL_CORE};
     $version = $CLASS->$method("v1.2.3");
-    eval { $version < $CLASS };
+    eval { () = $version < $CLASS };
     like $@, qr/^Invalid version format/, "error with $version < $CLASS";
     
     # that which is not expressly permitted is forbidden