Change the syntax for attributes from tag.attribute to tag/attribute; we

[xml-template] / perl / XML / Template.pm

diff --git a/perl/XML/Template.pm b/perl/XML/Template.pm
index 3d4fad856b1fd4d082dad1a40cc9fec25d071cdc..c148eccf19a8db47e422565a1d4df7ba663ab860 100644 (file)
--- a/perl/XML/Template.pm
+++ b/perl/XML/Template.pm
@@ -83,8 +83,8 @@ sub process {
                                # check all substitutions to see if we found anything
                                # appropriate
                                for my $key (keys %$obj) {
-                                       if (($key =~ /^\Q$tag\E\.(.*)$/) ||
-                                           (defined($id) && $key =~ /^#\Q$id\E\.(.*)$/)) {
+                                       if (($key =~ /^\Q$tag\E\/(.*)$/) ||
+                                           (defined($id) && $key =~ /^#\Q$id\E\/(.*)$/)) {
                                                $child->setAttribute($1, $obj->{$key});
                                        }