diff options
| author | Cristiano Urban <cristiano.urban.slack@gmail.com> | 2016-08-27 00:56:29 +0700 |
|---|---|---|
| committer | David Spencer <idlemoor@slackbuilds.org> | 2016-08-28 00:22:40 +0100 |
| commit | 2bf69a6871583bdb4738ab23745f5bba41bf83fa (patch) | |
| tree | 52ebfb797aa6cd60ec9064b507632e9718b0f7b0 /libraries/uuid/04-fix-data-uuid-from-string.patch | |
| parent | 3918dcef7bc7fd44dd32aaeb0791c38da4e7c119 (diff) | |
| download | slackbuilds-2bf69a6871583bdb4738ab23745f5bba41bf83fa.tar.gz | |
libraries/uuid: Added (OSSP Universally Unique Identifier).
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
Diffstat (limited to 'libraries/uuid/04-fix-data-uuid-from-string.patch')
| -rw-r--r-- | libraries/uuid/04-fix-data-uuid-from-string.patch | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/libraries/uuid/04-fix-data-uuid-from-string.patch b/libraries/uuid/04-fix-data-uuid-from-string.patch new file mode 100644 index 0000000000..1f92cea3ae --- /dev/null +++ b/libraries/uuid/04-fix-data-uuid-from-string.patch @@ -0,0 +1,36 @@ +Description: Support dash-less args to from_string. +Author: Tim Retout <diocles@debian.org> +Bug-Debian: http://bugs.debian.org/635607 + +The module Data::GUID depends on Data::UUID supporting this behaviour. + +--- a/perl/uuid_compat.pm ++++ b/perl/uuid_compat.pm +@@ -93,7 +93,9 @@ + $uuid->import('str', + $str =~ /^0x/ + ? join '-', unpack('x2 a8 a4 a4 a4 a12', $str) +- : $str ++ : $str =~ /-/ ++ ? $str ++ : join '-', unpack('A8 A4 A4 A4 A12', $str) + ); + return $uuid->export('bin'); + } +--- a/perl/uuid_compat.ts ++++ b/perl/uuid_compat.ts +@@ -28,7 +28,7 @@ + ## uuid_compat.ts: Data::UUID Backward Compatibility Perl API (Perl test suite part) + ## + +-use Test::More tests => 14; ++use Test::More tests => 16; + + BEGIN { + use_ok('Data::UUID'); +@@ -53,3 +53,5 @@ + ok($uuid8 = $ug->from_string("6ba7b811-9dad-11d1-80b4-00c04fd430c8")); + ok($ug->compare($uuid7, $uuid8) == 0); + ++ok($uuid9 = $ug->from_string("6ba7b8119dad11d180b400c04fd430c8")); ++ok($ug->compare($uuid7, $uuid9) == 0); |