eef2801e21
PR: 87674 Submitted by: Christian Lackas <delta@lackas.net> Approved by: maintainer timeout
11 lines
342 B
Perl
11 lines
342 B
Perl
--- Tail.pm.debug.orig Thu Nov 3 12:32:53 2005
|
|
+++ Tail.pm.debug Thu Nov 3 12:33:03 2005
|
|
@@ -349,7 +349,7 @@
|
|
|
|
my $newname;
|
|
if ($oldhandle && $$object{'name_changes_callback'}) {
|
|
- $newname=$$object{'name_changes_callback'}();
|
|
+ $newname=$object->{'name_changes_callback'}->();
|
|
} else {
|
|
$newname=$object->input;
|
|
}
|