aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon McVittie <http://smcv.pseudorandom.co.uk/>2008-07-12 17:34:40 +0100
committerSimon McVittie <http://smcv.pseudorandom.co.uk/>2008-07-12 17:34:40 +0100
commit9a184badf5a42f4d6bd6d5a8dc0d2c2bbcabde72 (patch)
tree31699ac365e64f979278b49e06229914b44e8389
parentb269835a7fa07c2bf5d469399324b7d2a8a8fbb1 (diff)
downloadikiwiki-9a184badf5a42f4d6bd6d5a8dc0d2c2bbcabde72.tar
ikiwiki-9a184badf5a42f4d6bd6d5a8dc0d2c2bbcabde72.tar.gz
Stop prepending urn:uuid: to guids that look like UUIDs
-rw-r--r--IkiWiki/Plugin/meta.pm8
1 files changed, 1 insertions, 7 deletions
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') {