removed warning

git-svn-id: file:///home/dpavlin/private/svn/webpac/branches/hidra@257 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/openisis/perl/OpenIsis.pm b/openisis/perl/OpenIsis.pm
index f5053bd..057cd00 100644 (file)
--- a/openisis/perl/OpenIsis.pm
+++ b/openisis/perl/OpenIsis.pm
@@ -81,7 +81,7 @@ bootstrap OpenIsis $VERSION;
 
 sub MHL {
        for ( @_ ) {
-               s/(<[^=>]*)=[^>]+>/\1>/g; # dump <a=b> substitutions
+               s/(<[^=>]*)=[^>]+>/$1>/g; # dump <a=b> substitutions
                s/></; /g; # replace >< pairs
                s/[><]//g; # nuke other ><
                s/^\^.//; # kill initial subfield spec