[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
IO::File with perl 5.005_03
From: |
Gary V. Vaughan |
Subject: |
IO::File with perl 5.005_03 |
Date: |
Tue, 11 Sep 2001 02:09:01 +0100 |
User-agent: |
Mutt/1.3.21i |
$ cd ~/devel/savannah/libtool-1-4/libltdl
$ automake
Can't call method "close" on an undefined value at
/usr/local/bin/automake line 7751.
$ automake --version
automake (GNU automake) 1.5
Written by Tom Tromey <address@hidden>.
Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
$ cat -n /usr/local/bin/automake | sed '7745,7752p;d'
7745 # Ensure a file exists.
7746 sub create
7747 {
7748 my ($file) = @_;
7749
7750 my $touch = new IO::File (">> $file");
7751 $touch->close;
7752 }
$ sed '7750s/(">> \$file")/"$file", O_APPEND/' /usr/local/bin/automake > arse
$ chmod +x arse
$ sudo cp -f arse /usr/local/bin/automake
$ automake
I have no idea why this works, and the original doesn't. I simply
copied one of the examples from the IO::File perldocs which seems to
fix it for me.
Cheers,
Gary.
--
())_. Gary V. Vaughan gary@(oranda.demon.co.uk|gnu.org)
( '/ Research Scientist http://www.oranda.demon.co.uk ,_())____
/ )= GNU Hacker http://www.gnu.org/software/libtool \' `&
`(_~)_ Tech' Author http://sources.redhat.com/autobook =`---d__/
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- IO::File with perl 5.005_03,
Gary V. Vaughan <=