Peter Tobias spoke unto the world: >Package: perl >Version: 5.002-1 (a.out) >The following program prints "0.e-1" instead of "0". >for ($j = 0; $j <= 7; $j++) { > print "$j\n"; >}
I've not been able to duplicate this anywhere using a.out under linux or any other machines that I have access to.
Script started on Tue Nov 28 20:34:21 1995 [0]~/work/debian/perl/perl5.002 perv:-) uname -a Linux perv 1.2.13 #3 Thu Sep 21 01:26:52 PDT 1995 i486 [0]~/work/debian/perl/perl5.002 perv:-) perl -e ' quote> for ($j = 0; $j <= 7; $j++) { quote> print "$j\n"; quote> } quote> ' 0 1 2 3 4 5 6 7 [0]~/work/debian/perl/perl5.002 perv:-) exit Script done on Tue Nov 28 20:35:19 1995
Script started on Tue Nov 28 19:40:14 1995 [0]~/hack/perl5.002beta1 pentagon:-) uname -a BSD/OS pentagon.io.com 2.0 i386 [0]~/hack/perl5.002beta1 pentagon:-) ./perl -e ' quote> for ($j = 0; $j <= 7; $j++) { quote> print "$j\n"; quote> } quote> ' 0 1 2 3 4 5 6 7 [0]~/hack/perl5.002beta1 pentagon:-) exit Script done on Tue Nov 28 19:41:14 1995
Script started on Tue Nov 28 17:19:06 1995 [0]~/hold/perl5.002beta1 inotest6:-) uname -a SunOS inotest6 4.1.3_U1 1 sun4m [0]~/hold/perl5.002beta1 inotest6:-) ./perl -e ' quote> for ($j = 0; $j <= 7; $j++) { quote> print "$j\n"; quote> } quote> ' 0 1 2 3 4 5 6 7 [0]~/hold/perl5.002beta1 inotest6:-) exit script done on Tue Nov 28 17:19:30 1995
Script started on Tue Nov 28 19:22:17 1995 [0]~/hold/perl5.002beta1 inotest5:-) uname -a SunOS inotest5 5.4 Generic_101945-32 sun4m sparc [0]~/hold/perl5.002beta1 inotest6:-) ./perl -e ' quote> for ($j = 0; $j <= 7; $j++) { quote> print "$j\n"; quote> } quote> ' 0 1 2 3 4 5 6 7 [0]~/hold/perl5.002beta1 inotest6:-) exit script done on Tue Nov 28 19:23:17 1995