Changeset 4745

Timestamp:

2003-06-20T14:24:05+12:00 (21 years ago)

Author:

mdewsnip

Message:

Uncommented a line which shouldn't have been committed commented.

Location:

trunk/gsdl/perllib/plugins

Files:

• ConvertToPlug.pm (modified) (1 diff)
• ConvertToRogPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -118 +118 @@
 sub new {
     my $class = shift (@_);
-    # print "Class: " . $class . "\n";
-    # if ($class eq "ConvertToPlug") {$class = shift (@_);}
+    if ($class eq "ConvertToPlug") {$class = shift (@_);}
     my $self;
     # parsargv::parse might modify the list, so we do this by creating a copy

trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

@@ -75 +75 @@
 sub new {
     my $class = shift (@_);
-    # print "Class: " . $class . "\n";
-    # if ($class eq "ConvertToRogPlug") {$class = shift (@_);}
+    if ($class eq "ConvertToRogPlug") {$class = shift (@_);}
     my $self;
     # parsargv::parse might modify the list, so we do this by creating a copy