1 --- ./subversion/bindings/swig/perl/native/t/6ra.t.org 2008-08-10 11:16:08.571581580 +0200
2 +++ ./subversion/bindings/swig/perl/native/t/6ra.t 2008-08-10 11:18:55.423648224 +0200
6 my ($self, $baton, $base_checksum, $pool) = @_;
7 - my $data = $baton->{data} = \'';
10 + my $data = $baton->{data} = \$mem1;
11 open my $out_fh, '>', $data
12 or die "error opening in-memory file to store Subversion update: $!";
13 - open my $in_fh, '<', \''
14 + open my $in_fh, '<', \$mem2
15 or die "error opening in-memory file for delta source: $!";
16 return [ SVN::TxDelta::apply($in_fh, $out_fh, undef, "$baton", $pool) ];