mirror of
https://git.freebsd.org/ports.git
synced 2025-07-10 13:59:22 -04:00
11 lines
392 B
Perl
11 lines
392 B
Perl
--- Tail.pm.debug.orig 2015-08-02 21:47:30.000000000 +0900
|
|
+++ Tail.pm.debug 2015-08-21 15:55:07.353518103 +0900
|
|
@@ -354,7 +354,7 @@
|
|
|
|
my $newname;
|
|
if ($oldhandle && $$object{'name_changes_callback'}) {
|
|
- $newname=$$object{'name_changes_callback'}();
|
|
+ $newname=$object->{'name_changes_callback'}->();
|
|
$object->{"input"}= $newname;
|
|
} else {
|
|
$newname=$object->input;
|