From 5d443fd1be4a31b44661a63f20e9731fe18fef1d Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Fri, 8 Feb 2013 22:19:46 -0500
Subject: [PATCH] fix for mocked getnext method when first IID is zero

---
 t/util/test_class_mocked.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/util/test_class_mocked.pl b/t/util/test_class_mocked.pl
index 92aceecf..8517b953 100755
--- a/t/util/test_class_mocked.pl
+++ b/t/util/test_class_mocked.pl
@@ -280,7 +280,9 @@ sub mock_getnext {
 	    # with a fully qualified leaf and potentially a partial
 	    ( $leaf, $iid ) = @{$vars};
 
-	    $iid ||= 0;
+	    unless (defined $iid) {
+		$iid = -1;
+	    }
 	    my $new_iid = $iid;
 	    my $val     = $EMPTY;
 	    my $data    = $c_data->{$leaf};