Fix loop detection bug.

Approved by:	perl (tobez)
This commit is contained in:
Dag-Erling Smørgrav 2013-04-23 10:39:26 +00:00
parent 0192c08b08
commit c51f1c92df
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=316342
2 changed files with 11 additions and 0 deletions

View file

@ -7,6 +7,7 @@
PORTNAME= RPC-XML
PORTVERSION= 0.77
PORTREVISION= 1
CATEGORIES= net www perl5
MASTER_SITES= CPAN
PKGNAMEPREFIX= p5-

View file

@ -0,0 +1,10 @@
--- lib/RPC/XML.pm.orig 2011-08-22 11:29:30.000000000 +0200
+++ lib/RPC/XML.pm 2013-04-23 10:28:19.780990362 +0200
@@ -258,6 +258,7 @@
$type = reftype $_;
die "Un-convertable reference: $type, cannot use\n";
}
+ $seenrefs->{$_}--;
}
# You have to check ints first, because they match the
# next pattern (for doubles) too