From 2b2a4664da7980c277c65f9377a7c7e38a1858c3 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 17 Jun 2004 14:57:14 +0000
Subject: [PATCH] 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
---
 MANIFEST                        |  1 +
 ext/Storable/t/make_overload.pl | 13 +++++++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 ext/Storable/t/make_overload.pl

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;
+
-- 
2.7.4