If it REALLY bugs you then you could always just patch the source (totally untested):
[root@devel3 perl-5.8.2]# diff uts/sprintf_wrap.c uts/sprintf_wrap.PAT +CH.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]#
cheers
tachyon
In reply to Re: (s)printf question: eliminating plus sign before zeros
by tachyon
in thread (s)printf question: eliminating plus sign before zeros
by Not_a_Number
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |