aboutsummaryrefslogtreecommitdiff
path: root/src/SVG
diff options
context:
space:
mode:
Diffstat (limited to 'src/SVG')
-rw-r--r--src/SVG/SVG2zinc/Backend/PerlClass.pm4
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)
{