was Re: UNIVERSAL::VERSION causing "Use of uninitialized value..." warning

Message-ID: <40F35423.5080304@rowman.com>

p4raw-id: //depot/perl@23088

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index d145262a4c..ad6d40156f 100644
--- a/util.c
+++ b/util.c
@@ -3962,7 +3962,7 @@ Perl_scan_version(pTHX_ char *s, SV *rv, bool qv)
     }
     if ( qv ) { /* quoted versions always become full version objects */
 	I32 len = av_len((AV *)sv);
-	for ( len = 2 - len; len != 0; len-- )
+	for ( len = 2 - len; len > 0; len-- )
 	    av_push((AV *)sv, newSViv(0));
     }
     return s;