From Felix-Kogan@deshaw.com

$ ~/bin/eval.pl
printf "%g\n", 13500000000
1.35e+10

It actually breaks some of production scripts (or makes people to do annoing
workarounds), so, we considered this a bug. I've made the following changes
in order to fix it locally​:

# diff Long.pm /usr/local/lib/perl5/Getopt/Long.pm
...
1151,1152c1151
...
< if ( $arg !~ /^[+-]?[0-9]+$/ ) {

  if \( $arg \!~ /^\-?\[0\-9\]\+$/ \) \{

1176,1177c1175
...
< if ( $arg !~ /^[+-]?[0-9.]+([eE][+-]?[0-9]+)?$/ ) {

  if \( $arg \!~ /^\-?\[0\-9\.\]\+\(\[eE\]\-?\[0\-9\]\+\)?$/ \) \{

The latest stable Perl distribution doesn't have this bug fixed either.

Hope it's helpful.

Felix Kogan, CompSys
D.E.SHAW & Co, NYC
(212) 478-0594, (212) 403-8594

From @sciurius

"Kogan, Felix" <Felix-Kogan@​deshaw.com> writes​:

It actually breaks some of production scripts (or makes people to do annoing
workarounds), so, we considered this a bug. I've made the following changes
in order to fix it locally​:

You apply several changes, where only 1 would be sufficient, why?

Could you please download the most recent version of Getopt​::Long from
http​://search.cpan.org/search?dist=Getopt-Long

and apply the following patch​:

***************
*** 725,736 ****
  # and at least one digit following the point and 'e'.
  # [-]NN[.NN][eNN]
  if ( $bundling && defined $rest &&
! $rest =~ /^(-?[0-9]+(\.[0-9]+)?([eE]-?[0-9]+)?)(.*)$/s ) {
  $arg = $1;
  $rest = $+;
  unshift (@​ARGV, $starter.$rest) if defined $rest && $rest ne '';
  }
! elsif ( $arg !~ /^-?[0-9.]+(\.[0-9]+)?([eE]-?[0-9]+)?$/ ) {
  if ( defined $optarg || $mand eq "=" ) {
  if ( $passthrough ) {
  unshift (@​ARGV, defined $rest ? $starter.$rest : $arg)
--- 725,736 ----
  # and at least one digit following the point and 'e'.
  # [-]NN[.NN][eNN]
  if ( $bundling && defined $rest &&
! $rest =~ /^(-?[0-9]+(\.[0-9]+)?([eE][-+]?[0-9]+)?)(.*)$/s ) {
  $arg = $1;
  $rest = $+;
  unshift (@​ARGV, $starter.$rest) if defined $rest && $rest ne '';
  }
! elsif ( $arg !~ /^-?[0-9.]+(\.[0-9]+)?([eE][-+]?[0-9]+)?$/ ) {
  if ( defined $optarg || $mand eq "=" ) {
  if ( $passthrough ) {
  unshift (@​ARGV, defined $rest ? $starter.$rest : $arg)

Does this fix all your problems?

-- Johan