/[webpac]/openisis/current/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 /openisis/current/perl/OpenIsis.pm

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

revision 624 by dpavlin, Mon Mar 8 17:43:12 2004 UTC revision 625 by dpavlin, Sat Jan 1 22:07:58 2005 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.624  
changed lines
  Added in v.625

  ViewVC Help
Powered by ViewVC 1.1.26