X-Git-Url: http://git.rot13.org/?p=webpac;a=blobdiff_plain;f=openisis%2Fperl%2FOpenIsis.pm;h=057cd005478f6174bcd3f213fc57cadf40fc8dbd;hp=f5053bdbe38545729c8dfda65ec5d9e026bce052;hb=46c4d4858331cf5f4e4bb0194123db6c0ce14b6c;hpb=304ad553557554bda437210346d45e44038efa00

diff --git a/openisis/perl/OpenIsis.pm b/openisis/perl/OpenIsis.pm
index f5053bd..057cd00 100644
--- 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