Changeset 9462 for trunk/gsdl/perllib/plugins/BNContentePlug.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/BNContentePlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BNContentePlug.pm

@@ -316 +316 @@
 # things down significantly in some cases.
 sub Char {
+    use bytes;  # Necessary to prevent encoding issues with XML::Parser 2.31+
     $_[0]->{'Text'} .= $_[1];
     if ((defined $self->{'subfield'} && ($self->{'subfield'} ne ""))) {