From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 17 Jun 2004 14:57:14 +0000 (+0000)
Subject: Change 22516 forgot to add make_overload.pl to generate test data
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b2a4664da7980c277c65f9377a7c7e38a1858c3;p=p5sagit%2Fp5-mst-13.2.git

Change 22516 forgot to add make_overload.pl to generate test data
(submitted from the pub via wireless, bluetooth and then GPRS out
to the Internet)

p4raw-id: //depot/perl@22944
---

diff --git a/MANIFEST b/MANIFEST
index 92298b8..2ad6f41 100644
--- 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
index 0000000..bd224f5
--- /dev/null
+++ b/ext/Storable/t/make_overload.pl
@@ -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;
+