diff options
| -rw-r--r-- | src/SVG/SVG2zinc/Backend/PerlClass.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/SVG/SVG2zinc/Backend/PerlClass.pm b/src/SVG/SVG2zinc/Backend/PerlClass.pm index 9d2f9e9..394bbf7 100644 --- a/src/SVG/SVG2zinc/Backend/PerlClass.pm +++ b/src/SVG/SVG2zinc/Backend/PerlClass.pm @@ -92,7 +92,7 @@ sub treatLines { { $l =~ s/^(\s*)->/$1\$_zinc->/g; $l =~ s/(\W)->/$1\$_zinc->/g; - $l =~ s/HASHKEY{\'(\w+)\'}/\$self -> {children} -> {$1} = /g; + $l =~ s/HASHKEY{\'(.*?)\'}/\$self -> {children} -> {$1} = /g; $self -> printLines($l); } } @@ -106,7 +106,7 @@ sub dtreatLines { $l =~ s/^(\s*)->/$1\$_zinc-> /g; $l =~ s/(\W)->/$1\$_zinc-> /g; - $l =~ s/HASHKEY{\'([0-9a-zA-Z_\-]+)\'}/\$self -> {children} -> {\'$1\'} = /g; + $l =~ s/HASHKEY{\'(.*?)\'}/\$self -> {children} -> {\'$1\'} = /g; } if (@lines) { |