aboutsummaryrefslogtreecommitdiff
path: root/src/SVG/SVG2zinc/Backend
diff options
context:
space:
mode:
Diffstat (limited to 'src/SVG/SVG2zinc/Backend')
-rw-r--r--src/SVG/SVG2zinc/Backend/PerlClass.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/SVG/SVG2zinc/Backend/PerlClass.pm b/src/SVG/SVG2zinc/Backend/PerlClass.pm
index 7b0df4d..9d2f9e9 100644
--- a/src/SVG/SVG2zinc/Backend/PerlClass.pm
+++ b/src/SVG/SVG2zinc/Backend/PerlClass.pm
@@ -92,6 +92,7 @@ sub treatLines {
{
$l =~ s/^(\s*)->/$1\$_zinc->/g;
$l =~ s/(\W)->/$1\$_zinc->/g;
+ $l =~ s/HASHKEY{\'(\w+)\'}/\$self -> {children} -> {$1} = /g;
$self -> printLines($l);
}
}
@@ -105,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;
}
if (@lines)
{