mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2025-12-21 21:17:37 -08:00
56bd759df1
This commit represents a new era for Gentoo: Storing the gentoo-x86 tree in Git, as converted from CVS. This commit is the start of the NEW history. Any historical data is intended to be grafted onto this point. Creation process: 1. Take final CVS checkout snapshot 2. Remove ALL ChangeLog* files 3. Transform all Manifests to thin 4. Remove empty Manifests 5. Convert all stale $Header$/$Id$ CVS keywords to non-expanded Git $Id$ 5.1. Do not touch files with -kb/-ko keyword flags. Signed-off-by: Robin H. Johnson <robbat2@gentoo.org> X-Thanks: Alec Warner <antarus@gentoo.org> - did the GSoC 2006 migration tests X-Thanks: Robin H. Johnson <robbat2@gentoo.org> - infra guy, herding this project X-Thanks: Nguyen Thai Ngoc Duy <pclouds@gentoo.org> - Former Gentoo developer, wrote Git features for the migration X-Thanks: Brian Harring <ferringb@gentoo.org> - wrote much python to improve cvs2svn X-Thanks: Rich Freeman <rich0@gentoo.org> - validation scripts X-Thanks: Patrick Lauer <patrick@gentoo.org> - Gentoo dev, running new 2014 work in migration X-Thanks: Michał Górny <mgorny@gentoo.org> - scripts, QA, nagging X-Thanks: All of other Gentoo developers - many ideas and lots of paint on the bikeshed
37 lines
1.0 KiB
Diff
37 lines
1.0 KiB
Diff
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);
|