subversion/subversion-1.5.0-perl510.patch

16 lines
563 B
Diff

upstream r31546
--- subversion-1.5.0/subversion/bindings/swig/perl/native/t/6ra.t.perl510
+++ subversion-1.5.0/subversion/bindings/swig/perl/native/t/6ra.t
@@ -221,8 +221,7 @@ sub add_file {
sub apply_textdelta {
my ($self, $baton, $base_checksum, $pool) = @_;
- my $data = $baton->{data} = \'';
- open my $out_fh, '>', $data
+ open my $out_fh, '>', \$baton->{data}
or die "error opening in-memory file to store Subversion update: $!";
open my $in_fh, '<', \''
or die "error opening in-memory file for delta source: $!";