diff options
| author | bouyssou | 2008-01-11 15:06:29 +0000 |
|---|---|---|
| committer | bouyssou | 2008-01-11 15:06:29 +0000 |
| commit | 02e7e0cd76c2e017affe94e5e6b1b1a9f49ac116 (patch) | |
| tree | 230c026e2803fe52cb9815990c1657040db16bca /src/SVG/SVG2zinc/Backend/PerlClass.pm | |
| parent | f52ffa82f1eb73b11e27ea1daddc468ee84adf2a (diff) | |
| download | mtc-02e7e0cd76c2e017affe94e5e6b1b1a9f49ac116.zip mtc-02e7e0cd76c2e017affe94e5e6b1b1a9f49ac116.tar.gz mtc-02e7e0cd76c2e017affe94e5e6b1b1a9f49ac116.tar.bz2 mtc-02e7e0cd76c2e017affe94e5e6b1b1a9f49ac116.tar.xz | |
Modification de la regexp sur le HASHKEY pour prendre en compte tous les characteres du nom des items SVG.
Diffstat (limited to 'src/SVG/SVG2zinc/Backend/PerlClass.pm')
| -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) { |