From: Simon McVittie <http://smcv.pseudorandom.co.uk/>
Date: Sat, 12 Jul 2008 16:34:40 +0000 (+0100)
Subject: Stop prepending urn:uuid: to guids that look like UUIDs
X-Git-Url: https://scripts.mit.edu/gitweb/www/ikiwiki.git/commitdiff_plain/9a184badf5a42f4d6bd6d5a8dc0d2c2bbcabde72?ds=sidebyside

Stop prepending urn:uuid: to guids that look like UUIDs
---

diff --git a/IkiWiki/Plugin/meta.pm b/IkiWiki/Plugin/meta.pm
index 55c214f67..d00b6854f 100644
--- a/IkiWiki/Plugin/meta.pm
+++ b/IkiWiki/Plugin/meta.pm
@@ -85,13 +85,7 @@ sub preprocess (@) { #{{{
 		# fallthrough
 	}
 	elsif ($key eq 'guid') {
-		my $abs = $value;
-
-		if ($abs =~ m/^[[:xdigit:]]{8}-[[:xdigit:]]{4}-[[:xdigit]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{12}$/) {
-			$abs = lc "urn:uuid:$abs";
-		}
-
-		$pagestate{$page}{meta}{guid}=HTML::Entities::encode_numeric($abs);
+		$pagestate{$page}{meta}{guid}=HTML::Entities::encode_numeric($value);
 		# fallthrough
 	}
 	elsif ($key eq 'license') {