Parent Directory
|
Revision Log
|
Patch
trunk/openisis/perl/OpenIsis.pm revision 239 by dpavlin, Mon Mar 8 17:49:13 2004 UTC | branches/fsb/openisis/perl/OpenIsis.pm revision 307 by dpavlin, Sat Apr 17 20:57:48 2004 UTC | |
---|---|---|
# | Line 81 bootstrap OpenIsis $VERSION; | Line 81 bootstrap OpenIsis $VERSION; |
81 | ||
82 | sub MHL { | sub MHL { |
83 | for ( @_ ) { | for ( @_ ) { |
84 | s/(<[^=>]*)=[^>]+>/\1>/g; # dump <a=b> substitutions | s/(<[^=>]*)=[^>]+>/$1>/g; # dump <a=b> substitutions |
85 | s/></; /g; # replace >< pairs | s/></; /g; # replace >< pairs |
86 | s/[><]//g; # nuke other >< | s/[><]//g; # nuke other >< |
87 | s/^\^.//; # kill initial subfield spec | s/^\^.//; # kill initial subfield spec |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |