/[webpac]/branches/hidra/openisis/perl/OpenIsis.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/hidra/openisis/perl/OpenIsis.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

openisis/current/perl/OpenIsis.pm revision 237 by dpavlin, Mon Mar 8 17:43:12 2004 UTC branches/hidra/openisis/perl/OpenIsis.pm revision 257 by dpavlin, Thu Mar 11 17:53:21 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
Legend:
Removed from v.237  
changed lines
  Added in v.257
  ViewVC Help
Powered by ViewVC 1.1.26