squeezebox-server/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-07-27 09:03:19.000000000 -0700
   3 +++ new/CPAN/XML/Parser/Expat.pm        2011-07-29 11:36:07.000000000 -0700
   4 @@ -489,7 +489,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 @@ -672,7 +672,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-07-25 10:07:41.000000000 -0700
  24 +++ new/CPAN/XML/Simple.pm      2011-07-29 11:45:30.781316888 -0700
  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 {