Changeset 9462 for trunk/gsdl/perllib/plugins/XMLPlug.pm

Timestamp:

2005-03-18T11:57:51+13:00 (19 years ago)

Author:

mdewsnip

Message:

Added "use bytes" in all XML::Parser Char functions. This is to prevent nasty encoding problems when using XML::Parser versions 2.31+. See BasPlug's revision 1.58 log message for more information on this problem.

With much help from John McPherson.

File:

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

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -149 +149 @@
 # things down significantly in some cases.
 sub Char {
-  $_[0]->{'Text'} .= $_[1];
-  return undef;
+    use bytes;  # Necessary to prevent encoding issues with XML::Parser 2.31+
+    $_[0]->{'Text'} .= $_[1];
+    return undef;
 }