logitechmediaserver/perl-5.14.patch

   1 diff -aur old/CPAN/XML/Parser/Expat.pm new/CPAN/XML/Parser/Expat.pm
   2 --- old/CPAN/XML/Parser/Expat.pm        2011-09-12 03:35:08.000000000 +1000
   3 +++ new/CPAN/XML/Parser/Expat.pm        2011-11-03 17:02:06.238832780 +1100
   4 @@ -490,7 +490,7 @@
   5    local(*FILE);
   6    open(FILE, $_[0]) or  croak "Couldn't open $_[0]:\n$!";
   7    binmode(FILE);
   8 -  my $ret = $self->parse(*FILE);
   9 +  my $ret = $self->parse(\*FILE);
  10    close(FILE);
  11    $ret;
  12  }
  13 @@ -676,7 +676,7 @@
  14                        'End'   => \&eh,
  15                        'Char'  => \&ch);
  16   open(FOO, '<', 'info.xml') or die "Couldn't open";
  17 - $parser->parse(*FOO);
  18 + $parser->parse(\*FOO);
  19   close(FOO);
  20   # $parser->parse('<foo id="me"> here <em>we</em> go </foo>');
  21
  22 diff -aur old/CPAN/XML/Simple.pm new/CPAN/XML/Simple.pm
  23 --- old/CPAN/XML/Simple.pm      2011-09-12 03:35:08.000000000 +1000
  24 +++ new/CPAN/XML/Simple.pm      2011-11-03 16:59:38.348520576 +1100
  25 @@ -333,7 +333,7 @@
  26      # $tree = $xp->parsefile($filename);  # Changed due to prob w/mod_perl
  27      local(*XML_FILE);
  28      open(XML_FILE, '<', $filename) || croak qq($filename - $!);
  29 -    $tree = $xp->parse(*XML_FILE);
  30 +    $tree = $xp->parse(\*XML_FILE);
  31      close(XML_FILE);
  32    }
  33    else {