--- branches/hidra/openisis/perl/OpenIsis.pm 2004/03/08 18:07:37 242
+++ branches/hidra/openisis/perl/OpenIsis.pm 2004/03/11 17:53:21 257
@@ -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