I'm using ActivePerl 5.8, build 813; I get a return value of zero. I don't see any reason why you should be getting 1 or -1.