IO::File with perl 5.005_03

[Gary V. Vaughan]

 $ 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__/