Change 18070 by rgs@rgs-home on 2002/10/28 20:46:33 Subject: [PATCH] Re: Not OK: perl v5.9.0 +DEVEL17881 on i386-freebsd 4.6-release (UNINSTALLED) From: Nicholas Clark <[EMAIL PROTECTED]> Date: Sun, 27 Oct 2002 18:39:03 +0000 Message-ID: <[EMAIL PROTECTED]>
Affected files ... .... //depot/perl/util.c#371 edit Differences ... ==== //depot/perl/util.c#371 (text) ==== Index: perl/util.c --- perl/util.c#370~18030~ Sat Oct 19 07:10:21 2002 +++ perl/util.c Mon Oct 28 12:46:33 2002 @@ -3704,6 +3704,7 @@ char * Perl_scan_version(pTHX_ char *s, SV *rv) { + const char *start = s; char *pos = s; I32 saw_period = 0; bool saw_under = 0; @@ -3743,7 +3744,7 @@ /* this is atoi() that delimits on underscores */ char *end = pos; I32 mult = 1; - if ( s < pos && *(s-1) == '_' ) { + if ( s < pos && s > start && *(s-1) == '_' ) { if ( *s == '0' && *(s+1) != '0') mult = 10; /* perl-style */ else End of Patch.