summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch
diff options
context:
space:
mode:
authorMark Hatle <mark.hatle@windriver.com>2012-06-11 13:18:54 -0500
committerRichard Purdie <richard.purdie@linuxfoundation.org>2012-06-12 11:10:35 +0100
commitb81d788c799a576dd1dc0db573639df69d91afef (patch)
tree3a96546c68c947b928fa24d4c52469d2b81133ec /meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch
parentbc4a29df84542f0ef905a2e20d8533a0ea7cb613 (diff)
downloadpoky-b81d788c799a576dd1dc0db573639df69d91afef.tar.gz
ossp-uuid: Add oss-uuid package and RPM 5.4.9 integration
RPM 5.4.9 now strongly encourages you to have the ossp-uuid library available. Add this recipe, and change RPM to use the uuid functionality. (From OE-Core rev: 8a2b55c5b7c544ec15113bc21e5c62276449c9c3) Signed-off-by: Mark Hatle <mark.hatle@windriver.com> Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch')
-rw-r--r--meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch36
1 files changed, 36 insertions, 0 deletions
diff --git a/meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch b/meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch
new file mode 100644
index 0000000000..1f92cea3ae
--- /dev/null
+++ b/meta/recipes-devtools/ossp-uuid/ossp-uuid/0004-fix-data-uuid-from-string.patch
@@ -0,0 +1,36 @@
1Description: Support dash-less args to from_string.
2Author: Tim Retout <diocles@debian.org>
3Bug-Debian: http://bugs.debian.org/635607
4
5The module Data::GUID depends on Data::UUID supporting this behaviour.
6
7--- a/perl/uuid_compat.pm
8+++ b/perl/uuid_compat.pm
9@@ -93,7 +93,9 @@
10 $uuid->import('str',
11 $str =~ /^0x/
12 ? join '-', unpack('x2 a8 a4 a4 a4 a12', $str)
13- : $str
14+ : $str =~ /-/
15+ ? $str
16+ : join '-', unpack('A8 A4 A4 A4 A12', $str)
17 );
18 return $uuid->export('bin');
19 }
20--- a/perl/uuid_compat.ts
21+++ b/perl/uuid_compat.ts
22@@ -28,7 +28,7 @@
23 ## uuid_compat.ts: Data::UUID Backward Compatibility Perl API (Perl test suite part)
24 ##
25
26-use Test::More tests => 14;
27+use Test::More tests => 16;
28
29 BEGIN {
30 use_ok('Data::UUID');
31@@ -53,3 +53,5 @@
32 ok($uuid8 = $ug->from_string("6ba7b811-9dad-11d1-80b4-00c04fd430c8"));
33 ok($ug->compare($uuid7, $uuid8) == 0);
34
35+ok($uuid9 = $ug->from_string("6ba7b8119dad11d180b400c04fd430c8"));
36+ok($ug->compare($uuid7, $uuid9) == 0);