Skip Menu |

This queue is for tickets about the Inline-Files CPAN distribution.

Report information
The Basics
Id: 44692
Status: resolved
Worked: 2 hours (120 min)
Priority: 0/
Queue: Inline-Files

People
Owner: ambs [...] cpan.org
Requestors: Andreas.Ulbrich [...] ottogroup.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: pipe open does not work with Inline::Files
Date: Tue, 31 Mar 2009 08:49:51 +0200
To: <bug-Inline-Files [...] rt.cpan.org>
From: "Ulbrich, Andreas" <Andreas.Ulbrich [...] ottogroup.com>
That's the simple script: xxx@yyy:~/zzz> cat test.pl # use Inline::Files; open FOO, "cat test.pl |" or die "Fehler: $!"; while (<FOO>) { print $_; } close FOO; It's running: xxx@yyy:~/zzz> perl test.pl # use Inline::Files; open FOO, "cat test.pl |" or die "Fehler: $!"; while (<FOO>) { print $_; } close FOO; Now uncomment the use-line und run again: xxx@yyy:~/zzz> cat test.pl use Inline::Files; open FOO, "cat test.pl |" or die "Fehler: $!"; while (<FOO>) { print $_; } close FOO; xxx@yyy:~/zzz> perl test.pl Fehler: No such file or directory at test.pl line 3. I'm using perl version This is perl, v5.8.7 built for i586-linux-thread-multi And Inline-Files-0.62.tar.gz
On Tue Mar 31 02:50:19 2009, Andreas.Ulbrich@ottogroup.com wrote: Show quoted text
> That's the simple script: > > xxx@yyy:~/zzz> cat test.pl > # use Inline::Files; > open FOO, "cat test.pl |" or die "Fehler: $!"; > while (<FOO>) { > print $_; > } > close FOO; > > > It's running: > > xxx@yyy:~/zzz> perl test.pl > # use Inline::Files; > open FOO, "cat test.pl |" or die "Fehler: $!"; > while (<FOO>) { > print $_; > } > close FOO; > > > Now uncomment the use-line und run again: > > xxx@yyy:~/zzz> cat test.pl > use Inline::Files; > open FOO, "cat test.pl |" or die "Fehler: $!"; > while (<FOO>) { > print $_; > } > close FOO; > > xxx@yyy:~/zzz> perl test.pl > Fehler: No such file or directory at test.pl line 3. > > I'm using perl version > This is perl, v5.8.7 built for i586-linux-thread-multi > And Inline-Files-0.62.tar.gz >
Interesting. Thought it might be the fact of catting itself, but it doesn't work if you cat another script. It just doesn't like to open a pipe :-| Also interesting, this one doesn't work but also doesn't die. use Inline::Files; open FOO, "-|", "cat test.pl" or die "Fehler: $!"; while (<FOO>) { print $_; } close FOO;
Fixed on 0.64