Changeset 10254 for trunk/gsdl/perllib/plugins/XMLPlug.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/XMLPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -28 +28 @@
 use BasPlug;
 use doc;
-#$%^
-use parse2;
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
@@ -106 +106 @@
     if (open(XMLIN,"<$filename")) {
 
-        $untransformed_xml = "";
+        my $untransformed_xml = "";
         while (defined (my $line = <XMLIN>)) {
 
@@ -138 +138 @@
     }
     else {
-    print $outhandle "Error: Unable to run command $xsl_cmd\n";
+    print $outhandle "Error: Unable to run command $xslt_cmd\n";
     print $outhandle "       $!\n";
     }