diff options
Diffstat (limited to 'Build/source/texk')
| -rw-r--r-- | Build/source/texk/dvipsk/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/dvipsk/papersiz.c | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/Build/source/texk/dvipsk/ChangeLog b/Build/source/texk/dvipsk/ChangeLog index 1b8b55ffa84..779eb069d91 100644 --- a/Build/source/texk/dvipsk/ChangeLog +++ b/Build/source/texk/dvipsk/ChangeLog @@ -1,3 +1,8 @@ +2008-09-20 Karl Berry <karl@tug.org> + + * papersiz.c (myatol): accept a leading zero, to match the doc. + From Akira. Report from John Frampton through tex-eplain. + 2008-07-10 Karl Berry <karl@tug.org> * dvips.h (BANNER): 5.97, 2008. diff --git a/Build/source/texk/dvipsk/papersiz.c b/Build/source/texk/dvipsk/papersiz.c index db77dcf5d44..1fde1f5f1a0 100644 --- a/Build/source/texk/dvipsk/papersiz.c +++ b/Build/source/texk/dvipsk/papersiz.c @@ -40,7 +40,9 @@ static long myatol P1C(char **, s) error("! arithmetic overflow in parameter") ; result = 10 * result + *p++ - '0' ; } - if (p == *s) { + if (p == *s && *p == '.') { + return 0; + } else if (p == *s) { #ifdef KPATHSEA error(concat3 ("expected number in ", *s, ", returning 10")) ; #else |