Changeset 6125

Timestamp:

2003-12-04T13:52:13+13:00 (20 years ago)

Author:

mdewsnip

Message:

Angle brackets in option defaults are now entified.

File:

• trunk/gsdl/perllib/printusage.pm (modified) (1 diff)

trunk/gsdl/perllib/printusage.pm

@@ -114 +114 @@
     # Show the default value for the option, if there is one
     if (defined $option->{'deft'}) {
-        print STDERR "      <Default>$option->{'deft'}</Default>\n";
+        my $optiondeftvalue = $option->{'deft'};
+
+        # Escape '<' and '>' characters
+        $optiondeftvalue =~ s/</&lt;/g;
+        $optiondeftvalue =~ s/>/&gt;/g;
+
+        print STDERR "      <Default>$optiondeftvalue</Default>\n";
     }