diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/SVG/SVG2zinc/Backend/PerlClass.pm | 3 |
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) { |