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.
