]>
Commit | Line | Data |
---|---|---|
68f0a385 AM |
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 | |
3 | @@ -221,10 +221,12 @@ | |
4 | ||
5 | sub apply_textdelta { | |
6 | my ($self, $baton, $base_checksum, $pool) = @_; | |
7 | - my $data = $baton->{data} = \''; | |
8 | + my $mem1; | |
9 | + my $mem2; | |
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) ]; | |
17 | } |