$template=template("/".$template_page);
};
if ($@) {
+ # gettext can clobber $@
+ my $error = $@;
# Indicate that the earlier preprocessor directive set
# up a template that doesn't work.
- return "[[!edittemplate ".gettext("failed to process template:")." $@]]";
+ return "[[!edittemplate ".gettext("failed to process template:")." $error]]";
}
$template->param(name => $page);
+ eval {
+ require UUID::Tiny;
+ UUID::Tiny->import(':std');
+ my $uuid;
+ $uuid = create_uuid_as_string(UUID_V4());
+ $template->param(uuid => $uuid);
+ };
+
return $template->output;
}