diff options
| author | Sergey Skvortsov <skv@FreeBSD.org> | 2002-05-27 14:18:15 +0000 |
|---|---|---|
| committer | Sergey Skvortsov <skv@FreeBSD.org> | 2002-05-27 14:18:15 +0000 |
| commit | b3d64975635daaddf04d03dff77df2ee4cc6bbda (patch) | |
| tree | f1339cffc60352145f2aa98be1506dc3df2e546f /devel/p5-Data-UUID/files | |
| parent | add gnump3d 0.9.9.7 (diff) | |
Add p5-Data-UUID 0.06,
module for generating Globally/Universally
Unique Identifiers (GUIDs/UUIDs).
Diffstat (limited to 'devel/p5-Data-UUID/files')
| -rw-r--r-- | devel/p5-Data-UUID/files/patch-UUID.pm | 51 | ||||
| -rw-r--r-- | devel/p5-Data-UUID/files/patch-typemap | 11 |
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\") |