2 files changed, 62 insertions, 0 deletions
diff --git a/devel/p5-Data-UUID/files/patch-UUID.pm b/devel/p5-Data-UUID/files/patch-UUID.pm
new file mode 100644
index 000000000000..76eef6bea896
--- /dev/null
+++ b/devel/p5-Data-UUID/files/patch-UUID.pm
@@ -0,0 +1,51 @@
+--- UUID.pm.orig	Mon May 27 18:11:13 2002
++++ UUID.pm	Mon May 27 18:12:25 2002
+@@ -1,15 +1,14 @@
+ package Data::UUID;
+ 
+-use 5.006;
+ use strict;
+-use warnings;
+ use Carp;
+ 
+ require Exporter;
+ require DynaLoader;
+ use AutoLoader;
+ 
+-our @ISA = qw(Exporter DynaLoader);
++use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION $AUTOLOAD);
++@ISA = qw(Exporter DynaLoader);
+ 
+ # Items to export into callers namespace by default. Note: do not export
+ # names by default without a very good reason. Use EXPORT_OK instead.
+@@ -18,18 +17,18 @@
+ # This allows declaration	use Data::UUID ':all';
+ # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
+ # will save memory.
+-our %EXPORT_TAGS = ( 'all' => [ qw(
++%EXPORT_TAGS = ( 'all' => [ qw(
+    NameSpace_DNS
+    NameSpace_OID
+    NameSpace_URL
+    NameSpace_X500
+ ) ] );
+ 
+-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
++@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+ 
+-our @EXPORT = qw(
++@EXPORT = qw(
+ );
+-our $VERSION = '0.06';
++$VERSION = '0.06';
+ 
+ sub AUTOLOAD {
+     # This AUTOLOAD is used to 'autoload' constants from the constant()
+@@ -37,7 +36,6 @@
+     # to the AUTOLOAD in AutoLoader.
+ 
+     my $constname;
+-    our $AUTOLOAD;
+     ($constname = $AUTOLOAD) =~ s/.*:://;
+     croak "& not defined" if $constname eq 'constant';
+     my $val = constant($constname, @_ ? $_[0] : 0);
diff --git a/devel/p5-Data-UUID/files/patch-typemap b/devel/p5-Data-UUID/files/patch-typemap
new file mode 100644
index 000000000000..00774659f982
--- /dev/null
+++ b/devel/p5-Data-UUID/files/patch-typemap
@@ -0,0 +1,11 @@
+--- typemap.orig	Tue Dec 11 01:20:31 2001
++++ typemap	Mon Jan 28 19:56:30 2002
+@@ -5,7 +5,7 @@
+ T_PTRUUID
+ 	if (sv_derived_from($arg, \"Data::UUID\")) {
+ 	    IV tmp = SvIV((SV*)SvRV($arg));
+-	    $var = INT2PTR($type,tmp);
++	    $var = ($type)(tmp);
+ 	}
+ 	else
+ 	    croak(\"$var is not of type Data::UUID\")