Changeset 9462

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.

Location:

trunk/gsdl/perllib/plugins

Files:

• BNContentePlug.pm (modified) (1 diff)
• DSpacePlug.pm (modified) (1 diff)
• RecPlug.pm (modified) (1 diff)
• XMLPlug.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 ""))) {

trunk/gsdl/perllib/plugins/DSpacePlug.pm

@@ -411 +411 @@
 # 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;
 }
 

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -548 +548 @@
 # 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;
 }
 

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;
 }