Changeset 9403

Timestamp:

2005-03-14T10:17:40+13:00 (19 years ago)

Author:

jrm21

Message:

need to 'bless' an object before you can call functions in it
(for print_txt_usage())

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -377 +377 @@
 
     &gsprintf(STDERR, "\n{BasPlug.bad_general_option}\n", $plugin_name);
+        bless $self, $class;
     $self->print_txt_usage("");  # Use default resource bundle
     die "\n";