develooper Front page | perl.perl6.internals | Postings from October 2002

[perl #18157] [PATCH] t/src/sprintf.t test 1 fails

Thread Next
From:
Peter Gibbs
Date:
October 30, 2002 00:59
Subject:
[perl #18157] [PATCH] t/src/sprintf.t test 1 fails
Message ID:
rt-18157-40797.5.68862547613165@bugs6.perl.org
# New Ticket Created by  Peter Gibbs 
# Please include the string:  [perl #18157]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=18157 >


t/src/sprintf.t test 1 fails due to too many percentage signs

Patch below seems to fix.

-- 
Peter Gibbs
EmKel Systems

Index: spf_render.c
===================================================================
RCS file: /cvs/public/parrot/spf_render.c,v
retrieving revision 1.5
diff -u -r1.5 spf_render.c
--- spf_render.c        29 Oct 2002 11:47:58 -0000      1.5
+++ spf_render.c        30 Oct 2002 08:57:15 -0000
@@ -238,8 +238,8 @@
             len = 0;
             old = i;
             if (string_ord(pat, i + 1) == '%') {
-                i++;
-                len += 2;
+                old = ++i;
+                len++;
                 continue;
             }
             else {





Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About