X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2Fsendmail_tester;h=ace1463010cc964c0227f17dbfd214a8acccec14;hb=64d0fa452631c6e228fad18f8ae469582e3734b3;hp=22f1e4c311704d57cb32a5ad9d14519057cb8322;hpb=7a1f0b402b964162216d2411af0e1bee3de5cf06;p=debbugs.git

diff --git a/t/sendmail_tester b/t/sendmail_tester
index 22f1e4c..ace1463 100755
--- 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: $!";