Changeset 10254 for trunk/gsdl/perllib/plugins/EMAILPlug.pm

Timestamp:

2005-07-19T16:27:51+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -63 +63 @@
 
 # 12/05/02 Added usage datastructure - John Thompson
+package EMAILPlug;
 
 use strict;
 no strict "refs"; # so we can use a variable as a filehandle for print $out
 
-package EMAILPlug;
 
 use SplitPlug;
-# EMAILPlug is a sub-class of SplitPlug.
-@EMAILPlug::ISA = ('SplitPlug');
-
 use unicode;  # gs conv functions
 use gsprintf 'gsprintf'; # translations
@@ -79 +76 @@
 use util;
 
+sub BEGIN {
+    @EMAILPlug::ISA = ('SplitPlug');
+}