Changeset 4842

Timestamp:

2003-07-01T14:29:28+12:00 (21 years ago)

Author:

mdewsnip

Message:

Added check when creating a ConvertToPlug object so that 'pluginfo.pl ConvertToPlug' doesn't crash and burn (because there is no target type specified).

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

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