Stop prepending urn:uuid: to guids that look like UUIDs
parent
b269835a7f
commit
9a184badf5
|
@ -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') {
|
||||
|
|
Loading…
Reference in New Issue