openpkg-packages/perl-crypto/perl-crypto.patch

Index: Data-UUID-0.14/UUID.h
--- Data-UUID-0.14/UUID.h.orig	2006-02-21 13:04:53 +0100
+++ Data-UUID-0.14/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.14/UUID.pm
--- Data-UUID-0.14/UUID.pm.orig	2006-02-25 21:33:17 +0100
+++ Data-UUID-0.14/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.14/UUID.xs
--- Data-UUID-0.14/UUID.xs.orig	2006-02-21 12:51:07 +0100
+++ Data-UUID-0.14/UUID.xs	2006-02-26 09:20:04 +0100
@@ -105,11 +105,11 @@
 }
 
 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;
 
-   /* 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__ || WIN32
+#if defined(__CYGWIN__) || defined(__MINGW32__) || defined(WIN32)
    typedef struct {
       MEMORYSTATUS  m;
       SYSTEM_INFO   s;
@@ -150,7 +150,7 @@
 
    MD5Init(&c);
 
-#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(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,
+      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:
@@ -273,7 +273,7 @@
       *hate += getpid();
    } else {
       get_random_info(seed);
-      seed[0] |= 0x80;
+      seed[0] |= 0x01;
       memcpy(&(RETVAL->nodeid), seed, sizeof(uuid_node_t));
       mask = umask(_DEFAULT_UMASK);
       if ((fd = fopen(UUID_NODEID_NV_STORE, "wb"))) {