Changeset 23438

Timestamp:

2010-12-10T23:38:38+13:00 (13 years ago)

Author:

davidb

Message:

$self needs to be blessed early on in this constructor, so it can call 'check_installation' is needed.

File:

• main/trunk/greenstone2/perllib/cgiactions/baseaction.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

@@ -90 +90 @@
     $gsdl_cgi->delete("a");
 
+    $self = bless $self, $class;
 
     # The check-installation command has no arguments
@@ -173 +174 @@
     }
     
-    return bless $self, $class;
+    return $self;
 }