cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Apply RT#68118 patch.

Browse Source 
References:	https://rt.cpan.org/Public/Bug/Display.html?id=68118
This commit is contained in:
Jun Kuriyama 2011-12-15 02:24:34 +00:00
parent 192a2cba1c
commit 3ef76b68a7
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=287404
2 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
devel/p5-YAML-AppConfig/Makefile
View File

@ -7,6 +7,7 @@
PORTNAME= YAML-AppConfig
PORTVERSION= 0.16
PORTREVISION= 1
CATEGORIES= devel perl5
MASTER_SITES= CPAN
PKGNAMEPREFIX= p5-
@ -23,4 +24,7 @@ PERL_CONFIGURE= yes
MAN3= YAML::AppConfig.3
post-patch:
${FIND} ${WRKSRC} -name '*.orig' | ${XARGS} ${RM}
.include <bsd.port.mk>

35
devel/p5-YAML-AppConfig/files/patch-AppConfig.pm Normal file
View File

@ -0,0 +1,35 @@
--- lib/YAML/AppConfig.pm.orig 2006-07-09 16:34:56.000000000 +0900
+++ lib/YAML/AppConfig.pm 2011-12-15 10:36:01.945716486 +0900
@@ -2,7 +2,6 @@
use strict;
use warnings;
use Carp;
-use UNIVERSAL qw(isa);
use Storable qw(dclone); # For Deep Copy
####################
@@ -113,7 +112,7 @@
if ( not ref $value ) {
$value = $self->_resolve_scalar($value);
}
- elsif ( isa $value, 'HASH' ) {
+ elsif (ref $value eq 'HASH' ) {
$value = dclone($value);
my @hidden = $self->_push_scope($value);
for my $key ( keys %$value ) {
@@ -122,13 +121,13 @@
$self->_pop_scope(@hidden);
return $value;
}
- elsif ( isa $value, 'ARRAY' ) {
+ elsif (ref $value eq 'ARRAY' ) {
$value = dclone($value);
for my $item (@$value) {
$item = $self->_resolve_refs( $item );
}
}
- elsif ( isa $value, 'SCALAR' ) {
+ elsif (ref $value eq 'SCALAR' ) {
$value = $self->_resolve_scalar($$value);
}
else {