ports/87674: update: devel/p5-File-Tail

[Christian Lackas]

* Anton Berezin <tobez at FreeBSD.org> [051103 12:12]:

Hello Anton,

> It appears that the updated version does not pass tests with perl
> 5.005_03.  It also appears that plist is incorrect.  Could you
> investigate?
> http://www.freebsd.org/cgi/query-pr.cgi?pr=87674

I am sorry for the inconvenience. Please find here  a patch for the
pkg-plist and a patch (files/path-tail.pm) to fix the syntax error under
5.005_03 ('make test' now works here). I will also send the patch to the
software author.

--- pkg-plist.orig      Thu Nov  3 12:36:35 2005
+++ pkg-plist   Thu Nov  3 12:39:46 2005
@@ -1,8 +1,5 @@
 %%SITE_PERL%%/File/Tail.pm
-%%SITE_PERL%%/auto/File/Tail/autosplit.ix
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/File/Tail/.packlist
 @dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/File/Tail
- at dirrm %%SITE_PERL%%/auto/File/Tail
 @unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File 2>/dev/null || true
- at unexec rmdir %D/%%SITE_PERL%%/auto/File 2>/dev/null || true
 @unexec rmdir %D/%%SITE_PERL%%/File 2>/dev/null || true

diff -urN files.orig/patch-tail.pm files/patch-tail.pm
--- files.orig/patch-tail.pm    Thu Jan  1 01:00:00 1970
+++ files/patch-tail.pm Thu Nov  3 12:33:22 2005
@@ -0,0 +1,11 @@
+--- 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;
+     }


Cheers
 Christian