Lines Matching refs:unless

7     unless (find PerlIO::Layer 'perlio') {
35 print "not " unless ord($a) == 0x3af;
38 print "not " unless ord($b) == 0x100;
45 print "not " unless ord($c) == 0x3af;
48 print "not " unless length($c) == 2;
51 print "not " unless ord(substr($c, 1, 1)) == 0x100;
54 print "not " unless ord(chr(0xdf)) == 0x3af; # spooky
57 print "not " unless ord(pack("C", 0xdf)) == 0x3af;
62 print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
66 print "not " unless unpack("U0 C", chr(0xdf)) == 0xce;
69 print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;
72 print "not " unless unpack("U", chr(0xdf)) == 0x3af;
77 print "not " unless ord("\N{LATIN SMALL LETTER SHARP S}") == 0xdf;
84 print "not " unless ord($c) == 0x3af;
87 print "not " unless ord(substr($c, 1, 1)) == 0xdf;
90 print "not " unless ord(substr($c, 2, 1)) == 0x3af;
95 print "not " unless "\xDF"    =~ /\x{3AF}/;
98 print "not " unless "\x{3AF}" =~ /\xDF/;
101 print "not " unless "\xDF"    =~ /\xDF/;
104 print "not " unless "\x{3AF}" =~ /\x{3AF}/;
143 print "not " unless  alleq($byte, $U);
151 print "not " unless allgt ( $g1,    $byte  )  &&
169 print "not " unless alleq( $u, $v );
183 print "not " unless pack("U*", 0x3AF) eq $byte;
189 print "not " unless ((pack("U*", 0x3B0)       cmp $byte) ==  1) &&