Hi Monks

I have the following code, IMHO it should print "T1" but to my surprise, It print "T2". Then I compile the "C" version of the same code in gcc and executed, It also printed "T2" , Then the C version, I have compiled in Visual Studio, It prints "T1" "T2".

I am confused now. Can some one please throw light?

use strict;

my $a = 10;

#IMHO: $a-- should finish the current operation and then -1
if ($a == $a--)
{
    print "\n T1";
    
}

$a=10;
#IMHO: --$a should -1 first and continute with current operation , i.e
+ if compare
if ($a == --$a)
{
    print "\n T2";
}

#ENV: #Active Perl 5.20, Windows 7, x64 

#Output
# T2
[download]