From b3d64975635daaddf04d03dff77df2ee4cc6bbda Mon Sep 17 00:00:00 2001
From: Sergey Skvortsov <skv@FreeBSD.org>
Date: Mon, 27 May 2002 14:18:15 +0000
Subject: Add p5-Data-UUID 0.06, module for generating Globally/Universally
Unique Identifiers (GUIDs/UUIDs).
---
devel/Makefile | 1 +
devel/p5-Data-UUID/Makefile | 23 +++++++++++++++
devel/p5-Data-UUID/distinfo | 1 +
devel/p5-Data-UUID/files/patch-UUID.pm | 51 ++++++++++++++++++++++++++++++++++
devel/p5-Data-UUID/files/patch-typemap | 11 ++++++++
devel/p5-Data-UUID/pkg-comment | 1 +
devel/p5-Data-UUID/pkg-descr | 20 +++++++++++++
devel/p5-Data-UUID/pkg-plist | 8 ++++++
8 files changed, 116 insertions(+)
create mode 100644 devel/p5-Data-UUID/Makefile
create mode 100644 devel/p5-Data-UUID/distinfo
create mode 100644 devel/p5-Data-UUID/files/patch-UUID.pm
create mode 100644 devel/p5-Data-UUID/files/patch-typemap
create mode 100644 devel/p5-Data-UUID/pkg-comment
create mode 100644 devel/p5-Data-UUID/pkg-descr
create mode 100644 devel/p5-Data-UUID/pkg-plist
diff --git a/devel/Makefile b/devel/Makefile
index 3c6fac5e3cc5..2fc39ad87f50 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -394,6 +394,7 @@
SUBDIR += p5-Data-HexDump
SUBDIR += p5-Data-ShowTable
SUBDIR += p5-Data-TemporaryBag
+ SUBDIR += p5-Data-UUID
SUBDIR += p5-Date-Calc
SUBDIR += p5-Date-DayOfWeek
SUBDIR += p5-Date-Leapyear
diff --git a/devel/p5-Data-UUID/Makefile b/devel/p5-Data-UUID/Makefile
new file mode 100644
index 000000000000..95c6760981c2
--- /dev/null
+++ b/devel/p5-Data-UUID/Makefile
@@ -0,0 +1,23 @@
+# New ports collection makefile for: Data::UUID
+# Date created: 28 Jan 2002
+# Whom: Sergey Skvortsov <skv@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME= Data-UUID
+PORTVERSION= 0.06
+CATEGORIES= devel perl5
+MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR= Data
+PKGNAMEPREFIX= p5-
+
+MAINTAINER= skv@FreeBSD.org
+
+PERL_CONFIGURE= yes
+CONFIGURE_ARGS= </dev/null
+
+MANPREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION}
+MAN3= Data::UUID.3
+
+.include <bsd.port.mk>
diff --git a/devel/p5-Data-UUID/distinfo b/devel/p5-Data-UUID/distinfo
new file mode 100644
index 000000000000..b8176815daf3
--- /dev/null
+++ b/devel/p5-Data-UUID/distinfo
@@ -0,0 +1 @@
+MD5 (Data-UUID-0.06.tar.gz) = 928358ad89761125374b9cdacf8caaa1
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\")
diff --git a/devel/p5-Data-UUID/pkg-comment b/devel/p5-Data-UUID/pkg-comment
new file mode 100644
index 000000000000..7820649994cd
--- /dev/null
+++ b/devel/p5-Data-UUID/pkg-comment
@@ -0,0 +1 @@
+Module for generating Globally/Universally Unique Identifiers (GUIDs/UUIDs)
diff --git a/devel/p5-Data-UUID/pkg-descr b/devel/p5-Data-UUID/pkg-descr
new file mode 100644
index 000000000000..3fa8a05617f1
--- /dev/null
+++ b/devel/p5-Data-UUID/pkg-descr
@@ -0,0 +1,20 @@
+This module provides a framework for generating UUIDs (Universally
+Unique Identifiers, also known as GUIDs (Globally Unique Identifiers).
+A UUID is 128 bits long, and is guaranteed to be different from all
+other UUIDs/GUIDs generated until 3400 A.D. Currently many different
+technologies rely on UUIDs to provide unique identity for various
+software components.
+
+The algorithm for UUID generation, used by this extension, is described
+in the Internet Draft "UUIDs and GUIDs" by Paul J. Leach and Rich Salz.
+It provides reasonably efficient and reliable framework for generating
+UUIDs and supports fairly high allocation rates - 10 million per second
+per machine, and therefore, is suitable for identifying both - extremely
+short-lived and very persistent objects on a given system as well as
+across the network.
+
+WWW: http://search.cpan.org/search?dist=Data-UUID
+WWW: http://www.globecom.net/ietf/draft/draft-leach-uuids-guids-01.txt
+
+-- Sergey Skvortsov
+skv@FreeBSD.org
diff --git a/devel/p5-Data-UUID/pkg-plist b/devel/p5-Data-UUID/pkg-plist
new file mode 100644
index 000000000000..c9c067d62ca9
--- /dev/null
+++ b/devel/p5-Data-UUID/pkg-plist
@@ -0,0 +1,8 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Data/UUID/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Data/UUID.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Data/UUID/UUID.bs
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Data/UUID/UUID.so
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Data/UUID/autosplit.ix
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Data/UUID
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Data 2>/dev/null || true
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Data 2>/dev/null || true
--
cgit debian/1.2.3+git2.25.1-1-2-gaceb0