Don't put leading newline on numeric strings

Subject: NeXT fails one test due to atoi

pragme/constants has a test that does the equivalent of:

    print " \t\n1234" == 1234 ? "ok" : "not ok";

This test prints "not ok" on the NeXT. Here's some background how the
NeXT behaves with several leading whitespaces.

    koenig@franz:/M/extra/sources/perl/perl5.003_97% perl -le '
    print " \t\n1234" == 1234 ? "ok" : "not ok";
    print " 1234" == 1234 ? "ok" : "not ok";
    print "\t1234" == 1234 ? "ok" : "not ok";
    print "\n1234" == 1234 ? "ok" : "not ok";
    '
    not ok
    ok
    ok
    not ok

I'd recommend the following patch:

p5p-msgid: 199704230847.KAA22752@anna.in-berlin.de

diff --git a/t/pragma/constant.t b/t/pragma/constant.t
index fdd08b8..0095f3b 100755 (executable)
--- a/t/pragma/constant.t
+++ b/t/pragma/constant.t
@@ -104,9 +104,9 @@ use constant TRAILING       => '12 cats';
 }
 test 25, TRAILING eq '12 cats';
 
-use constant LEADING   => " \t\n1234";
+use constant LEADING   => " \t1234";
 test 26, LEADING == 1234;
-test 27, LEADING eq " \t\n1234";
+test 27, LEADING eq " \t1234";
 
 use constant ZERO1     => 0;
 use constant ZERO2     => 0.0;