OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-src openpkg-web Date: 10-Jan-2004 22:46:44
Branch: HEAD Handle: 2004011021464202
Added files:
openpkg-src/perl-crypto perl-crypto.patch
Modified files:
openpkg-src/perl-crypto perl-crypto.spec
openpkg-web news.txt
Log:
fix Data::UUID to really conform to the UUID standard(s)
Summary:
Revision Changes Path
1.1 +85 -0 openpkg-src/perl-crypto/perl-crypto.patch
1.45 +4 -2 openpkg-src/perl-crypto/perl-crypto.spec
1.8047 +1 -0 openpkg-web/news.txt
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-src/perl-crypto/perl-crypto.patch
============================================================================
$ cvs diff -u -r0 -r1.1 perl-crypto.patch
--- /dev/null 2004-01-10 22:46:44.000000000 +0100
+++ perl-crypto.patch 2004-01-10 22:46:44.000000000 +0100
@@ -0,0 +1,85 @@
+Index: Data-UUID-0.11/UUID.xs
+--- Data-UUID-0.11/UUID.xs.orig Wed Aug 27 21:38:35 2003
++++ Data-UUID-0.11/UUID.xs Sat Jan 10 22:38:01 2004
+@@ -105,11 +105,11 @@
+ }
+
+ static void get_system_time(uuid_time_t *uuid_time) {
+-#if defined __CYGWIN__ || __MINGW32__
++#if defined(__CYGWIN__) || defined(__MINGW32__)
+ /* ULARGE_INTEGER time; */
+ LARGE_INTEGER time;
+
+- /* use QeryPerformanceCounter for +ms resolution - as per Paul Stodghill
++ /* use QueryPerformanceCounter for +ms resolution - as per Paul Stodghill
+ GetSystemTimeAsFileTime((FILETIME *)&time); */
+ QueryPerformanceCounter(&time);
+ time.QuadPart +=
+@@ -129,7 +129,7 @@
+
+ static void get_random_info(unsigned char seed[16]) {
+ MD5_CTX c;
+-#if defined __CYGWIN__ || __MINGW32__
++#if defined(__CYGWIN__) || defined(__MINGW32__)
+ typedef struct {
+ MEMORYSTATUS m;
+ SYSTEM_INFO s;
+@@ -150,7 +150,7 @@
+
+ MD5Init(&c);
+
+-#if defined __CYGWIN__ || __MINGW32__
++#if defined(__CYGWIN__) || defined(__MINGW32__)
+ GlobalMemoryStatus(&r.m);
+ GetSystemInfo(&r.s);
+ GetSystemTimeAsFileTime(&r.t);
+@@ -181,10 +181,10 @@
+ len = sizeof(uuid_t);
+ break;
+ case F_STR:
+- sprintf(buf, "%8.8X-%4.4X-%4.4X-%2.2X%2.2X-", (unsigned int)u.time_low,
u.time_mid,
++ sprintf(buf, "%8.8x-%4.4x-%4.4x-%2.2x%2.2x-", (unsigned int)u.time_low,
u.time_mid,
+ u.time_hi_and_version, u.clock_seq_hi_and_reserved, u.clock_seq_low);
+ for(i = 0; i < 6; i++ )
+- sprintf(buf+strlen(buf), "%2.2X", u.node[i]);
++ sprintf(buf+strlen(buf), "%2.2x", u.node[i]);
+ len = strlen(buf);
+ break;
+ case F_HEX:
+Index: Data-UUID-0.11/UUID.pm
+--- Data-UUID-0.11/UUID.pm.orig Wed Aug 27 22:06:06 2003
++++ Data-UUID-0.11/UUID.pm Sat Jan 10 11:37:46 2004
+@@ -109,7 +109,7 @@
+ $ug->create_from_name_bin(<namespace>, <name>);
+
+ # creates UUID string, using conventional UUID string format,
+- # such as: 4162F712-1DD2-11B2-B17E-C09EFE1DC403
++ # such as: 4162f712-1dd2-11b2-b17e-c09efe1dc403
+ $ug->create_str();
+ $ug->create_from_name_str(<namespace>, <name>);
+
+@@ -176,7 +176,7 @@
+
+ =head1 AUTHOR
+
+-Alexander Golomshtok<[EMAIL PROTECTED]>
++Alexander Golomshtok <[EMAIL PROTECTED]>
+
+ =head1 SEE ALSO
+
+Index: Data-UUID-0.11/UUID.h
+--- Data-UUID-0.11/UUID.h.orig Wed Aug 27 21:38:35 2003
++++ Data-UUID-0.11/UUID.h Sat Jan 10 22:38:21 2004
+@@ -49,7 +49,11 @@
+ #define UUID_STATE_NV_STORE _STDIR"/"UUID_STATE
+ #define UUID_NODEID_NV_STORE _STDIR"/"UUID_NODEID
+
+-#define UUIDS_PER_TICK 1024
++#if defined(__CYGWIN__) || defined(__MINGW32__)
++#define UUIDS_PER_TICK 10000
++#else
++#define UUIDS_PER_TICK 10
++#endif
+ #define I64(C) C##LL
+
+ #define F_BIN 0
@@ .
patch -p0 <<'@@ .'
Index: openpkg-src/perl-crypto/perl-crypto.spec
============================================================================
$ cvs diff -u -r1.44 -r1.45 perl-crypto.spec
--- openpkg-src/perl-crypto/perl-crypto.spec 3 Jan 2004 21:48:31 -0000 1.44
+++ openpkg-src/perl-crypto/perl-crypto.spec 10 Jan 2004 21:46:44 -0000 1.45
@@ -59,8 +59,8 @@
Distribution: OpenPKG [BASE]
Group: Language
License: GPL/Artistic
-Version: 20040103
-Release: 20040103
+Version: 20040110
+Release: 20040110
# list of sources
Source0: http://www.cpan.org/modules/by-module/Digest/Digest-%{V_digest}.tar.gz
@@ -88,6 +88,7 @@
Source22:
http://www.cpan.org/modules/by-module/Crypt/Crypt-CBC-%{V_crypt_cbc}.tar.gz
Source23:
http://www.cpan.org/modules/by-module/Data/Data-UUID-%{V_data_uuid}.tar.gz
Source24:
http://www.cpan.org/modules/by-module/String/String-CRC32-%{V_string_crc32}.tar.gz
+Patch0: perl-crypto.patch
# build information
Prefix: %{l_prefix}
@@ -151,6 +152,7 @@
%setup22 -q -T -D -a 22
%setup23 -q -T -D -a 23
%setup24 -q -T -D -a 24
+ %patch -p0
%build
@@ .
patch -p0 <<'@@ .'
Index: openpkg-web/news.txt
============================================================================
$ cvs diff -u -r1.8046 -r1.8047 news.txt
--- openpkg-web/news.txt 10 Jan 2004 19:17:13 -0000 1.8046
+++ openpkg-web/news.txt 10 Jan 2004 21:46:42 -0000 1.8047
@@ -1,3 +1,4 @@
+10-Jan-2004: Upgraded package: P<perl-crypto-20040110-20040110>
10-Jan-2004: Upgraded package: P<apache-1.3.29-20040110>
10-Jan-2004: Upgraded package: P<perl-util-20040110-20040110>
10-Jan-2004: Upgraded package: P<linkchecker-1.10.3-20040110>
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
