# New Ticket Created by Roger Browne # Please include the string: [perl #36003] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36003 >
The following pir program: .sub test @MAIN $I1 = mod 3, 3 print "3 mod 3 = " print $I1 print "\n" $I1 = mod -3, 3 print "-3 mod 3 = " print $I1 print "\n" $I1 = mod 3, -3 print "3 mod -3 = " print $I1 print "\n" $I1 = mod -3, -3 print "-3 mod -3 = " print $I1 print "\n" end .end ...prints this: 3 mod 3 = 0 -3 mod 3 = 3 3 mod -3 = -3 -3 mod -3 = 0 ...but I believe it should print this: 3 mod 3 = 0 -3 mod 3 = 0 3 mod -3 = 0 -3 mod -3 = 0 ...according to the documentation at http://www.parrotcode.org/docs/ops/math.html and according to this discussion from 2001: http://www.nntp.perl.org/group/perl.perl6.internals/5496 Regards, Roger Browne [EMAIL PROTECTED]
