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

1 files changed, 13 insertions, 0 deletions

diff --git a/ext/Storable/t/make_overload.pl b/ext/Storable/t/make_overload.pl
new file mode 100644
index 0000000000..bd224f5373
--- /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;
+