| CC: | "'John Sottile [...] Netcom'" <sottile [...] ix.netcom.com> |
| Subject: | name_changes do not update object -> {"input"} |
| Date: | Fri, 9 Feb 2007 15:57:53 -0500 |
| To: | <bug-File-Tail [...] rt.cpan.org> |
| From: | "John Sottile" <sottile [...] ix.netcom.com> |
When name_changes is called, the object -> {"input"} is not updated to
reflect the new file name.
Small Change to code below does the trick.
sub reset_pointers {
my $object=shift @_;
$object->{lastreset} = time();
my $st;
my $oldhandle=$object->{handle};
my $newhandle=FileHandle->new;
my $newname;
if ($oldhandle && $$object{'name_changes_callback'}) {
$newname=$$object{'name_changes_callback'}();
# JJS Changed
$object -> {"input"}= $newname;
} else {