This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5.8.8's Test::More doesn't provide note(), so revert to a print statement.
[perl5.git] / dist / Storable / t / restrict.t
index d2b1836..b21b37c 100644 (file)
@@ -91,7 +91,7 @@ sub testit {
 
 for $Storable::canonical (0, 1) {
   for my $cloner (\&dclone, \&freeze_thaw) {
-    note("\$Storable::canonical = $Storable::canonical");
+    print "# \$Storable::canonical = $Storable::canonical\n";
     testit (\%hash, $cloner);
     my $object = \%hash;
     # bless {}, "Restrict_Test";