Stop URLs at " too. Thanks to Vincent Lefevre (Closes: #766354).

[debbugs.git] / t / sendmail_tester

diff --git a/t/sendmail_tester b/t/sendmail_tester
index 22f1e4c311704d57cb32a5ad9d14519057cb8322..ace1463010cc964c0227f17dbfd214a8acccec14 100755 (executable)
--- a/t/sendmail_tester
+++ b/t/sendmail_tester
@@ -12,10 +12,10 @@ if (not -d $ENV{SENDMAIL_TESTDIR}) {
 
 my $fn = "$ENV{SENDMAIL_TESTDIR}/".time.$$;
 
-my $fh = new IO::File $fn ,'w' or die "Unable to open file $fn for writing: $!";
+my $fh = IO::File->new($fn ,'w') or die "Unable to open file $fn for writing: $!";
 
-print {$fh} join(' ',map {"'$_'"} @ARGV) or die "Unable to write to file $fn: $!";
+print {$fh} "$0 called with: ", join(' ',map {"'$_'"} @ARGV) or die "Unable to write to file $fn: $!";
 print {$fh} "\n\n";
-print {$fh} <> or die "Unable to write to file $fn: $!";
+print {$fh} <STDIN> or die "Unable to write to file $fn: $!";
 
 close $fh or die "Unable to close file $fn: $!";