[root@devel3 perl-5.8.2]# diff uts/sprintf_wrap.c uts/sprintf_wrap.PATCH.c
114c114
<       else if(Plus)   *ob++ = '+';
---
>       else if(Plus && ! Zero && ! AllZeroes ) *ob++ = '+';
148c148
<       if(Plus && (Ecvt[0] != '-')) {
---
>       if(Plus && (Ecvt[0] != '-') && ! Zero ) {
[root@devel3 perl-5.8.2]#