ported 257:258 from hidra branch

[webpac] / openisis / perl / OpenIsis.pm

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