CVS: devtools/bin cvs-info,1.2,1.3

Update of /cvsroot/mhonarc/devtools/bin
In directory subversions:/tmp/cvs-serv19563/bin

Modified Files:
	cvs-info 
Log Message:
Do safe pipe to cvs child process.


Index: cvs-info
===================================================================
RCS file: /cvsroot/mhonarc/devtools/bin/cvs-info,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** cvs-info	31 Mar 2002 22:07:22 -0000	1.2
--- cvs-info	31 Oct 2002 06:24:16 -0000	1.3
***************
*** 34,42 ****
  MAIN: {
    local(*CVS);
-   local $_;
  
!   open(CVS, "cvs status @ARGV 2>&1 |") ||
!       die qq/Unable to exec cvs: $!\n/;
  
    my $path = "";
    my $list = [ '' ];
--- 34,47 ----
  MAIN: {
    local(*CVS);
  
!   $child_pid = open(CVS, "-|");
!   if (!$child_pid) {
!     # child
!     open(STDERR, '>&STDOUT');
!     exec('cvs', 'status', @ARGV) || die qq/ERROR: Cannot exec cvs: $!\n/;
!   }
  
+   # parent
+   local $_;
    my $path = "";
    my $list = [ '' ];

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV