#!/usr/bin/perl
use warnings;
use strict;
$|=1;


print "**TrueZeroValue = $TrueZeroValue\n";

if ($TrueZeroValue)
{
   print "**This value is True\n";
}

$TrueZeroValue += 0; #this used to have no warnings and 
                     #converted exponential string notation to
                     #a numeric value

if ($TrueZeroValue == 0)
{
   print "**This value is zero numerically\n";
   print "**but with current Perl, a warning happens\n";
}

__END__
**TrueZeroValue = 0EO
**This value is True
Argument "0EO" isn't numeric in addition (+) at C:\Projects_Perl\TrueZeroValue.pl line 14.
**This value is zero numerically
**but with current Perl, a warning happens