From 02e7e0cd76c2e017affe94e5e6b1b1a9f49ac116 Mon Sep 17 00:00:00 2001
From: bouyssou
Date: Fri, 11 Jan 2008 15:06:29 +0000
Subject: Modification de la regexp sur le HASHKEY pour prendre en compte tous
 les characteres du nom des items SVG.

---
 src/SVG/SVG2zinc/Backend/PerlClass.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/SVG/SVG2zinc')

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)
     {
-- 
cgit v1.1