Changeset 11351
- Timestamp:
- 2006-03-13T16:15:10+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/printusage.pm
r10984 r11351 151 151 152 152 # Escape '<' and '>' characters 153 $optiondeftvalue =~ s/</& amp;lt;/g; #doubly escaped154 $optiondeftvalue =~ s/>/& amp;gt;/g;153 $optiondeftvalue =~ s/</</g; 154 $optiondeftvalue =~ s/>/>/g; 155 155 156 156 &gsprintf(STDERR, " <Default>$optiondeftvalue</Default>\n");
Note:
See TracChangeset
for help on using the changeset viewer.