1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00

Updated to 0.11

This commit is contained in:
Sergey Skvortsov 2003-08-31 08:18:46 +00:00
parent 47846ba268
commit 0659e64d62
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=88175
4 changed files with 12 additions and 65 deletions

View File

@ -6,7 +6,7 @@
#
PORTNAME= Data-UUID
PORTVERSION= 0.09
PORTVERSION= 0.11
CATEGORIES= devel perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Data
@ -20,4 +20,13 @@ CONFIGURE_ARGS= </dev/null
MAN3= Data::UUID.3
.include <bsd.port.mk>
.include <bsd.port.pre.mk>
post-patch:
.if ${PERL_LEVEL} < 500601
@${PERL} -pi -e '$$_="" if $$.==31' ${WRKSRC}/UUID.pm
@${PERL} -pi -e '$$_=~s/INT2PTR\(\$$type,/(\$$type)(/ if $$.==8' \
${WRKSRC}/typemap
.endif
.include <bsd.port.post.mk>

View File

@ -1 +1 @@
MD5 (Data-UUID-0.09.tar.gz) = 7a95b12170b539b2842b5fc4de35aea1
MD5 (Data-UUID-0.11.tar.gz) = 669b9935baf1753eca784dd30b9ad4b1

View File

@ -1,51 +0,0 @@
--- 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.09';
+$VERSION = '0.09';
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);

View File

@ -1,11 +0,0 @@
--- 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\")