Changeset 20723 for gsdl/trunk/perllib/printusage.pm

Timestamp:

2009-09-28T13:12:33+13:00 (14 years ago)

Author:

kjdon

Message:

changed print_txt_usage to output the description if its defined in options. no longer needs an extra parameter to be set.

File:

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

gsdl/trunk/perllib/printusage.pm

@@ -170 +170 @@
     my $options = shift(@_);
     my $params = shift(@_);
-    my $programdesc = shift(@_);
 
     # this causes us to automatically send output to a pager, if one is
@@ -193 +192 @@
     my $programname = $options->{'name'};
     my $programargs = $options->{'args'};
+    my $programdesc = $options->{'desc'};
 
     # Find the length of the longest option string
@@ -201 +201 @@
 
     # Produce the usage information using the data structure above
-    if ($programdesc) {
+    if (defined($programdesc)) {
     &gsprintf(STDERR, $programname . ": $options->{'desc'}\n\n");
     }