synch Carp::Heavy version number to Carp
authorZefram <zefram@fysh.org>
Thu, 2 Feb 2012 16:35:34 +0000 (16:35 +0000)
committerZefram <zefram@fysh.org>
Thu, 2 Feb 2012 16:35:34 +0000 (16:35 +0000)
Also add a test to make sure it stays synched.

dist/Carp/lib/Carp/Heavy.pm
dist/Carp/t/heavy.t

index 97ed291..8094e85 100644 (file)
@@ -2,7 +2,7 @@ package Carp::Heavy;
 
 use Carp ();
 
-our $VERSION = '1.23';
+our $VERSION = '1.25';
 
 1;
 
index f890d6c..72e4633 100644 (file)
@@ -1,7 +1,11 @@
-print "1..2\n";
+print "1..3\n";
 
 print defined(&Carp::carp) ? "not " : "", "ok 1 # control\n";
 require Carp::Heavy;
 print defined(&Carp::carp) ? "" : "not ", "ok 2 # carp loaded by Carp::Heavy\n";
+eval q{
+       print $Carp::Heavy::VERSION eq $Carp::VERSION ? "" : "not ",
+               "ok 3 # version numbers match\n";
+};
 
 1;