Changeset 1741

Timestamp:

2000-12-05T13:39:53+13:00 (23 years ago)

Author:

sjboddie

Message:

Fixed a little bug that was causing pluginfo.pl to print some dodgy looking
stuff for plugins inheriting from ConvertToPlug

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -52 +52 @@
 sub print_usage {
     my ($plugin_name) = @_;
+    
+    # for when this function is called directly by pluginfo.pl
+    if (ref ($plugin_name)) {
+    $plugin_name = ref ($plugin_name);
+    }
 
     print STDERR "\n  usage: plugin $plugin_name [options]\n\n";