Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 19 Oct 2017 09:05:25 +0000 (UTC)
From:      Mathieu Arnold <mat@FreeBSD.org>
To:        ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org
Subject:   svn commit: r452405 - head/www/p5-LWP-Authen-Wsse/files
Message-ID:  <201710190905.v9J95PSb047391@repo.freebsd.org>

next in thread | raw e-mail | index | archive | help
Author: mat
Date: Thu Oct 19 09:05:25 2017
New Revision: 452405
URL: https://svnweb.freebsd.org/changeset/ports/452405

Log:
  Fix build with recent perl5-devel.
  
  Sponsored by:	Absolight

Added:
  head/www/p5-LWP-Authen-Wsse/files/
  head/www/p5-LWP-Authen-Wsse/files/patch-inc_Module_Install.pm   (contents, props changed)

Added: head/www/p5-LWP-Authen-Wsse/files/patch-inc_Module_Install.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/www/p5-LWP-Authen-Wsse/files/patch-inc_Module_Install.pm	Thu Oct 19 09:05:25 2017	(r452405)
@@ -0,0 +1,11 @@
+--- inc/Module/Install.pm.orig	2005-12-26 16:21:34 UTC
++++ inc/Module/Install.pm
+@@ -81,7 +81,7 @@ sub preload {
+     my %seen_method;
+     foreach my $obj (@exts) {
+         while (my ($method, $glob) = each %{ref($obj) . '::'}) {
+-            next unless defined *{$glob}{CODE};
++            next unless exists &{ref($obj).'::'.$method};
+             next if $method =~ /^_/;
+             next if $method eq uc($method);
+             $seen_method{$method}++;



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201710190905.v9J95PSb047391>