One less regex in the world...

diff --git a/XML/Template.pm b/XML/Template.pm
index 40611673988b94046cb990395833aabd7fb4209e..3d4fad856b1fd4d082dad1a40cc9fec25d071cdc 100644 (file)
--- a/XML/Template.pm
+++ b/XML/Template.pm
@@ -89,7 +89,7 @@ sub process {
                                        }
 
                                        next if ($processed);
-                                       if ($key eq $tag || (defined($id) && $key =~ /^#\Q$id\E$/)) {
+                                       if ($key eq $tag || (defined($id) && $key eq ('#'.$id))) {
                                                process($child, $obj->{$key}, $clean, $nsup);
                                                $processed = 1;
                                        }