------_=_NextPart_001_01C28029.B9C8E340
Content-Type: text/plain;
charset="iso-8859-1"
Slaven Rezic Sent on 30 October 2002 16:23
> There is a special handling for numeric strings beginning with a "0".
> This is to allow things like "01".."31" to preserve the leading zero
> for one-digit numbers.
Aha!
>
> The special handling is triggered if either the left or right operand
> starts with "0". For left operands this is OK but I cannot think of a
> useful case where only a right operand with leading zero triggers this
> handling.
>
> OK:
>
> $ perl -e 'print join(",", "01" .. "02"), "\n"'
> 01,02
>
> Strange:
>
> $ perl -e 'print join(",", "1" .. "02"), "\n"'
> 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
> ,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,4
> 5,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,
> 66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86
> ,87,88,89,90,91,92,93,94,95,96,97,98,99
>
> With the patch below, Yves' new test cases pass (and all other tests)
> and the output from the example below looks better:
>
> $ ./perl -e 'print join(",", "1" .. "02"), "\n"'
> 1,2
Nice.
:-)
Yves
------_=_NextPart_001_01C28029.B9C8E340--