Changeset 10324

Timestamp:

2005-07-27T11:56:43+12:00 (19 years ago)

Author:

kjdon

Message:

added no strict, also changed Charactor Length to CharactorLength (its an element name\!)

File:

• trunk/gsdl/perllib/printusage.pm (modified) (2 diffs)

trunk/gsdl/perllib/printusage.pm

@@ -29 +29 @@
 
 use gsprintf;
+use strict;
+no strict 'subs'; # allow barewords (eg STDERR) as function arguments
 
 
@@ -103 +105 @@
     # If the option has a charactor length field, display this
     if (defined($option->{'char_length'})) {
-        &gsprintf(STDERR, "      <Charactor Length>$option->{'char_length'}</Charactor Length>\n");
+        &gsprintf(STDERR, "      <CharactorLength>$option->{'char_length'}</CharactorLength>\n");
     }