SOURCES: subversion-tests.patch (NEW) - perl 5.10 workaround

[arekm]

Author: arekm                        Date: Sun Aug 10 09:33:41 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- perl 5.10 workaround

---- Files affected:
SOURCES:
   subversion-tests.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/subversion-tests.patch
diff -u /dev/null SOURCES/subversion-tests.patch:1.1
--- /dev/null	Sun Aug 10 11:33:42 2008
+++ SOURCES/subversion-tests.patch	Sun Aug 10 11:33:36 2008
@@ -0,0 +1,17 @@
+--- ./subversion/bindings/swig/perl/native/t/6ra.t.org	2008-08-10 11:16:08.571581580 +0200
++++ ./subversion/bindings/swig/perl/native/t/6ra.t	2008-08-10 11:18:55.423648224 +0200
+@@ -221,10 +221,12 @@
+ 
+ sub apply_textdelta {
+     my ($self, $baton, $base_checksum, $pool) = @_;
+-    my $data = $baton->{data} = \'';
++    my $mem1;
++    my $mem2;
++    my $data = $baton->{data} = \$mem1;
+     open my $out_fh, '>', $data
+         or die "error opening in-memory file to store Subversion update: $!";
+-    open my $in_fh, '<', \''
++    open my $in_fh, '<', \$mem2
+         or die "error opening in-memory file for delta source: $!";
+     return [ SVN::TxDelta::apply($in_fh, $out_fh, undef, "$baton", $pool) ];
+ }
================================================================