Update CPANPLUS to 0.85_06

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / t / 09_CPANPLUS-Internals-Search.t

diff --git a/lib/CPANPLUS/t/09_CPANPLUS-Internals-Search.t b/lib/CPANPLUS/t/09_CPANPLUS-Internals-Search.t
index 583d464..c00437d 100644 (file)
--- a/lib/CPANPLUS/t/09_CPANPLUS-Internals-Search.t
+++ b/lib/CPANPLUS/t/09_CPANPLUS-Internals-Search.t
@@ -37,6 +37,11 @@ for my $type ( CPANPLUS::Module->accessors() ) {
 ### search for authors ###
 my $auth = $Mod->author;
 for my $type ( CPANPLUS::Module::Author->accessors() ) {
+    
+    ### don't muck around with references/objects
+    ### or private identifiers
+    next if ref $auth->$type() or $type =~/^_/;
+
     my @aref = $CB->search(
                     type    => $type,
                     allow   => [$auth->$type()],