diff --git a/testing/dav_test b/testing/dav_test index aaf7f00d..abc99899 100755 --- a/testing/dav_test +++ b/testing/dav_test @@ -377,24 +377,25 @@ exit(0); sub run_curl { my $url = shift; - push @arguments, @auth; + my @args = @arguments; + push @args, @auth; if ( -f $datafile ) { - push @arguments, "--data-binary", "\@$datafile"; + push @args, "--data-binary", "\@$datafile"; } elsif ( defined($data_binary) ) { - push @arguments, "--data-binary", $data_binary; + push @args, "--data-binary", $data_binary; } else { undef($datafile); } - push @arguments, $url; + push @args, $url; - warn join " ", "curl", @arguments, "\n" + warn join " ", "curl", @args, "\n" if $debug; - open RESULTS, "-|", "curl", @arguments; + open RESULTS, "-|", "curl", @args; while ( ) { my $line = $_;