OpenPKG CVS Repository http://cvs.openpkg.org/ ____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall Root: /v/openpkg/cvs Email: [EMAIL PROTECTED] Module: openpkg-src Date: 26-Feb-2006 09:23:06 Branch: HEAD Handle: 2006022608230600 Modified files: openpkg-src/perl-crypto perl-crypto.patch perl-crypto.spec Log: modifying package: perl-crypto-5.8.8 20060223 -> 20060226 Summary: Revision Changes Path 1.3 +50 -50 openpkg-src/perl-crypto/perl-crypto.patch 1.120 +2 -2 openpkg-src/perl-crypto/perl-crypto.spec ____________________________________________________________________________ patch -p0 <<'@@ .' Index: openpkg-src/perl-crypto/perl-crypto.patch ============================================================================ $ cvs diff -u -r1.2 -r1.3 perl-crypto.patch --- openpkg-src/perl-crypto/perl-crypto.patch 15 Jan 2004 16:32:44 -0000 1.2 +++ openpkg-src/perl-crypto/perl-crypto.patch 26 Feb 2006 08:23:06 -0000 1.3 @@ -1,12 +1,49 @@ -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 Thu Jan 15 17:25:42 2004 +Index: Data-UUID-0.13/UUID.h +--- Data-UUID-0.13/UUID.h.orig 2006-02-21 13:04:53 +0100 ++++ Data-UUID-0.13/UUID.h 2006-02-26 09:13:35 +0100 +@@ -52,7 +52,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 +Index: Data-UUID-0.13/UUID.pm +--- Data-UUID-0.13/UUID.pm.orig 2006-02-25 21:33:17 +0100 ++++ Data-UUID-0.13/UUID.pm 2006-02-26 09:13:35 +0100 +@@ -108,7 +108,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>); + +@@ -175,7 +175,7 @@ + + =head1 AUTHOR + +-Alexander Golomshtok<[EMAIL PROTECTED]> ++Alexander Golomshtok <[EMAIL PROTECTED]> + + =head1 SEE ALSO + +Index: Data-UUID-0.13/UUID.xs +--- Data-UUID-0.13/UUID.xs.orig 2006-02-21 12:51:07 +0100 ++++ Data-UUID-0.13/UUID.xs 2006-02-26 09:20:04 +0100 @@ -105,11 +105,11 @@ } - static void get_system_time(uuid_time_t *uuid_time) { --#if defined __CYGWIN__ || __MINGW32__ -+#if defined(__CYGWIN__) || defined(__MINGW32__) + static void get_system_time(perl_uuid_time_t *perl_uuid_time) { +-#if defined __CYGWIN__ || __MINGW32__ || WIN32 ++#if defined(__CYGWIN__) || defined(__MINGW32__) || defined(WIN32) /* ULARGE_INTEGER time; */ LARGE_INTEGER time; @@ -19,8 +56,8 @@ static void get_random_info(unsigned char seed[16]) { MD5_CTX c; --#if defined __CYGWIN__ || __MINGW32__ -+#if defined(__CYGWIN__) || defined(__MINGW32__) +-#if defined __CYGWIN__ || __MINGW32__ || WIN32 ++#if defined(__CYGWIN__) || defined(__MINGW32__) || defined(WIN32) typedef struct { MEMORYSTATUS m; SYSTEM_INFO s; @@ -28,13 +65,13 @@ MD5Init(&c); --#if defined __CYGWIN__ || __MINGW32__ -+#if defined(__CYGWIN__) || defined(__MINGW32__) +-#if defined __CYGWIN__ || __MINGW32__ || WIN32 ++#if defined(__CYGWIN__) || defined(__MINGW32__) || defined(WIN32) GlobalMemoryStatus(&r.m); GetSystemInfo(&r.s); GetSystemTimeAsFileTime(&r.t); @@ -181,10 +181,10 @@ - len = sizeof(uuid_t); + len = sizeof(perl_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, @@ -46,8 +83,8 @@ len = strlen(buf); break; case F_HEX: -@@ -270,7 +270,7 @@ - fclose(fd); +@@ -273,7 +273,7 @@ + *hate += getpid(); } else { get_random_info(seed); - seed[0] |= 0x80; @@ -55,40 +92,3 @@ memcpy(&(RETVAL->nodeid), seed, sizeof(uuid_node_t)); mask = umask(_DEFAULT_UMASK); if ((fd = fopen(UUID_NODEID_NV_STORE, "wb"))) { -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.119 -r1.120 perl-crypto.spec --- openpkg-src/perl-crypto/perl-crypto.spec 23 Feb 2006 16:04:06 -0000 1.119 +++ openpkg-src/perl-crypto/perl-crypto.spec 26 Feb 2006 08:23:06 -0000 1.120 @@ -60,7 +60,7 @@ %define V_crypt_dh 0.06 %define V_digest_crc 0.09 %define V_string_crc32 1.3 -%define V_data_uuid 0.11 +%define V_data_uuid 0.13 # package information Name: perl-crypto @@ -73,7 +73,7 @@ Group: Language License: GPL/Artistic Version: %{V_perl} -Release: 20060223 +Release: 20060226 # list of sources Source0: http://www.cpan.org/modules/by-module/Digest/Digest-%{V_digest}.tar.gz @@ . ______________________________________________________________________ The OpenPKG Project www.openpkg.org CVS Repository Commit List openpkg-cvs@openpkg.org