perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/conf extra.last.conf.in
Date Wed, 11 Feb 2004 01:24:19 GMT
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;
  
  
  

Mime
View raw message