Changeset 4843

Timestamp:

2003-07-01T14:30:39+12:00 (21 years ago)

Author:

mdewsnip

Message:

Added check to ConvertToRogPlug creation so that 'pluginfo.pl ConvertToRogPlug' doesn't crash and burn (because there is no target format specified).

File:

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

trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

@@ -75 +75 @@
 sub new {
     my $class = shift (@_);
-    if ($class eq "ConvertToRogPlug") {$class = shift (@_);}
+    if ($class eq "ConvertToRogPlug" && defined $_[0]) {$class = shift (@_);}
     my $self;
     # parsargv::parse might modify the list, so we do this by creating a copy