Changeset 10350

Timestamp:

2005-07-28T17:08:45+12:00 (19 years ago)

Author:

kjdon

Message:

added a check for defined before removing the .pm

Location:

trunk/gsdl/bin/script

Files:

• classinfo.pl (modified) (1 diff)
• pluginfo.pl (modified) (1 diff)

trunk/gsdl/bin/script/classinfo.pl

@@ -103 +103 @@
     # Get classifier
     my $classifier = shift (@ARGV);
-    $classifier =~ s/\.pm$//; # allow xxx.pm as the argument
-    
+    if (defined $classifier) {
+    $classifier =~ s/\.pm$//; # allow xxx.pm as the argument
+    }
     if (($listall == 0) && (!defined $classifier || $classifier eq "")) {
     &gsprintf(STDERR, "{classinfo.no_classifier_name}\n\n");

trunk/gsdl/bin/script/pluginfo.pl

@@ -121 +121 @@
 
     my $plugin = shift (@ARGV);
-    $plugin =~ s/\.pm$//; # allow xxxPlug.pm as the argument
-    
+    if (defined $plugin) {
+    $plugin =~ s/\.pm$//; # allow xxxPlug.pm as the argument
+    }
     if (($listall == 0) && (!defined $plugin || $plugin eq "")) {
     gsprintf(STDERR, "{pluginfo.no_plugin_name}\n\n");