modifying package: perl-crypto-5.8.8 20060223 -> 20060226

perl-crypto/perl-crypto.patch

@@ -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<agolomsh@cpan.org>
++Alexander Golomshtok <agolomsh@cpan.org>
+ 
+ =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 @@ Index: Data-UUID-0.11/UUID.xs
  
  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 @@ Index: Data-UUID-0.11/UUID.xs
  
     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 @@ Index: Data-UUID-0.11/UUID.xs
        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 @@ Index: Data-UUID-0.11/UUID.xs
        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<agolomsh@cpan.org>
-+Alexander Golomshtok <agolomsh@cpan.org>
- 
- =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

perl-crypto/perl-crypto.spec

@@ -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 @@ Class:        BASE
 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