--- openisis/current/perl/OpenIsis.pm 2005/01/01 22:07:36 624
+++ openisis/current/perl/OpenIsis.pm 2005/01/01 22:07:58 625
@@ -81,7 +81,7 @@
sub MHL {
for ( @_ ) {
- s/(<[^=>]*)=[^>]+>/\1>/g; # dump substitutions
+ s/(<[^=>]*)=[^>]+>/$1>/g; # dump substitutions
s/>; /g; # replace >< pairs
s/[><]//g; # nuke other ><
s/^\^.//; # kill initial subfield spec