cvs commit: modperl-2.0/t/conf extra.last.conf.in

[stas]

stas        2004/02/10 17:24:19

  Modified:    t/conf   extra.last.conf.in
  Log:
  fix the 'or die' logic
  
  Revision  Changes    Path
  1.15      +1 -1      modperl-2.0/t/conf/extra.last.conf.in
  
  Index: extra.last.conf.in
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/conf/extra.last.conf.in,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -u -r1.14 -r1.15
  --- extra.last.conf.in        10 Feb 2004 18:46:49 -0000      1.14
  +++ extra.last.conf.in        11 Feb 2004 01:24:19 -0000      1.15
  @@ -33,7 +33,7 @@
   <Perl >
       use File::Spec;
       my $file = File::Spec->catfile('@ServerRoot@', 'conf', 'perlsection.conf');
  -    open my $fh, ">$file" || die $!;
  +    open my $fh, ">$file" or die "Can't open $file: $!";
       print $fh join "\n", qw(<Perl> $TestDirective::perl::Included++; </Perl>);
       close $fh;
       $Include = $file;