Change 22516 forgot to add make_overload.pl to generate test data
Nicholas Clark [Thu, 17 Jun 2004 14:57:14 +0000 (14:57 +0000)]
(submitted from the pub via wireless, bluetooth and then GPRS out
to the Internet)

p4raw-id: //depot/perl@22944

MANIFEST
ext/Storable/t/make_overload.pl [new file with mode: 0644]

index 92298b8..2ad6f41 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -678,6 +678,7 @@ ext/Storable/t/just_plain_nasty.t   See if Storable works
 ext/Storable/t/lock.t          See if Storable works
 ext/Storable/t/make_56_interwork.pl    Make test data for interwork56.t
 ext/Storable/t/make_downgrade.pl       Make test data for downgrade.t
+ext/Storable/t/make_overload.pl        Make test data for overload.t
 ext/Storable/t/malice.t                See if Storable copes with corrupt files
 ext/Storable/t/overload.t      See if Storable works
 ext/Storable/t/recurse.t       See if Storable works
diff --git a/ext/Storable/t/make_overload.pl b/ext/Storable/t/make_overload.pl
new file mode 100644 (file)
index 0000000..bd224f5
--- /dev/null
@@ -0,0 +1,13 @@
+#!/usr/local/bin/perl -w
+use strict;
+
+use Storable qw(nfreeze);
+use HAS_OVERLOAD;
+
+my $o = HAS_OVERLOAD->make("snow");
+my $f = nfreeze \$o;
+
+my $uu = pack 'u', $f;
+
+print $uu;
+