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.
authorNicholas Clark <nick@ccl4.org>
Fri, 10 Dec 2010 16:29:31 +0000 (16:29 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 10 Dec 2010 16:29:31 +0000 (16:29 +0000)
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) {
 
 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";
     testit (\%hash, $cloner);
     my $object = \%hash;
     # bless {}, "Restrict_Test";