[perl #55570] [PATCH] vivify error filehandle

[Renée Bäcker <renee.baecker@smart-websolutions.de>]

This is a small patch that solves the problem:


rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ ./perl -Ilib 
../bugs/open.pl
test at /home/rbaecker/perl510/bugs/test.pl line 6.
rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ cd ../test/perl-5.10.0
rbaecker@www-devel-rbaecker ~/perl510/test/perl-5.10.0 $ ./perl -Ilib 
../../bugs/open.pl
Use of uninitialized value $err in <HANDLE> at ../../bugs/open.pl line 11.
readline() on unopened filehandle at ../../bugs/open.pl line 11.
rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ cat ../bugs/open.pl
#!/usr/bin/perl

use strict;
use warnings;
use IPC::Open3;

my ($wtr,$rdr,$err);

my $pid = open3($wtr,$rdr,$err,'perl /home/rbaecker/perl510/bugs/test.pl');

print <$err>;

rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $ cat ../bugs/test.pl
#!/usr/bin/perl

use strict;
use warnings;

warn "test";

rbaecker@www-devel-rbaecker ~/perl510/perl-5.10.0 $


Another related bug report is #31738 
(http://rt.perl.org/rt3/Ticket/Display.html?id=31738)

-- 
Renée Bäcker
renee.baecker@smart-websolutions.de

XING: http://www.xing.com/profile/Renee_Baecker
Foo-Magazin: http://foo-magazin.de

--- ../test/perl-5.10.0/lib/IPC/Open3.pm	2007-12-18 11:47:07.000000000 +0100
+++ lib/IPC/Open3.pm	2008-06-11 12:20:30.000000000 +0200
@@ -194,7 +194,7 @@
     unless (eval  {
 	$dad_wtr = $_[1] = gensym unless defined $dad_wtr && length $dad_wtr;
 	$dad_rdr = $_[2] = gensym unless defined $dad_rdr && length $dad_rdr;
-	1; }) 
+	$dad_err = $_[3] = gensym unless defined $dad_err && length $dad_err; }) 
     {
 	# must strip crud for croak to add back, or looks ugly
 	$@ =~ s/(?<=value attempted) at .*//s;

---

Follow-Ups from:

=?windows-1252?Q?Ren=E9e_B=E4cker?= <renee.baecker@smart-websolutions.de>
"Eric Brine" <ikegami@adaelis.com>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---