cvs commit: modperl-2.0/src/modules/perl modperl_io.c

[stas]

stas        2003/10/02 02:03:32

  Modified:    src/modules/perl modperl_io.c
  Log:
  length(">&STDIN") is 7, not 8 (but it seems not to matter)
  
  Revision  Changes    Path
  1.12      +1 -1      modperl-2.0/src/modules/perl/modperl_io.c
  
  Index: modperl_io.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- modperl_io.c      24 Aug 2003 19:37:29 -0000      1.11
  +++ modperl_io.c      2 Oct 2003 09:03:32 -0000       1.12
  @@ -99,7 +99,7 @@
       MP_TRACE_o(MP_FUNC, "start");
   
       /* open my $oldout, ">&STDIN" or die "Can't dup STDIN: $!"; */
  -    status = Perl_do_open(aTHX_ handle_save, ">&STDIN", 8, FALSE, O_RDONLY,
  +    status = Perl_do_open(aTHX_ handle_save, ">&STDIN", 7, FALSE, O_RDONLY,
                             0, Nullfp);
       if (status == 0) {
           Perl_croak(aTHX_ "Failed to dup STDIN: %_", get_sv("!", TRUE));