Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/assignwarn.t

Lines Matching defs:tiex
22 sub tiex { tie $_[0], 'main' }
33 { my $x; tiex $x if $tie; $x ++;     ok ! uninitialized, "postinc$tie"; }
34 { my $x; tiex $x if $tie; $x --;     ok ! uninitialized, "postdec$tie"; }
35 { my $x; tiex $x if $tie; ++ $x;     ok ! uninitialized, "preinc$tie"; }
36 { my $x; tiex $x if $tie; -- $x;     ok ! uninitialized, "predec$tie"; }
38 { my $x; tiex $x if $tie; $x **= 1;  ok uninitialized,   "**=$tie"; }
41     { my $x; tiex $x if $tie; $x += 1;   ok ! uninitialized, "+=$tie"; }
42     { my $x; tiex $x if $tie; $x -= 1;   ok ! uninitialized, "-=$tie"; }
45 { my $x; tiex $x if $tie; $x .= 1;   ok ! uninitialized, ".=$tie"; }
47 { my $x; tiex $x if $tie; $x *= 1;   ok uninitialized,   "*=$tie"; }
48 { my $x; tiex $x if $tie; $x /= 1;   ok uninitialized,   "/=$tie"; }
49 { my $x; tiex $x if $tie; $x %= 1;   ok uninitialized,   "\%=$tie"; }
51 { my $x; tiex $x if $tie; $x x= 1;   ok uninitialized, "x=$tie"; }
53 { my $x; tiex $x if $tie; $x &= 1;   ok uninitialized, "&=$tie"; }
56     { my $x; tiex $x if $tie; $x |= 1;   ok ! uninitialized, "|=$tie"; }
57     { my $x; tiex $x if $tie; $x ^= 1;   ok ! uninitialized, "^=$tie"; }
60 { my $x; tiex $x if $tie; $x &&= 1;  ok ! uninitialized, "&&=$tie"; }
61 { my $x; tiex $x if $tie; $x ||= 1;  ok ! uninitialized, "||=$tie"; }
63 { my $x; tiex $x if $tie; $x <<= 1;  ok uninitialized, "<<=$tie"; }
64 { my $x; tiex $x if $tie; $x >>= 1;  ok uninitialized, ">>=$tie"; }
66 { my $x; tiex $x if $tie; $x &= "x"; ok uninitialized, "&=$tie, string"; }
69     { my $x; tiex $x if $tie; $x |= "x"; ok ! uninitialized, "|=$tie, string"; }
70     { my $x; tiex $x if $tie; $x ^= "x"; ok ! uninitialized, "^=$tie, string"; }
76     { my $x; tiex $x if $tie; $x += 1; ok ! uninitialized, "+=$tie, int"; }
77     { my $x; tiex $x if $tie; $x -= 1; ok ! uninitialized, "-=$tie, int"; }
80 { my $x; tiex $x if $tie; $x *= 1; ok uninitialized, "*=$tie, int"; }
81 { my $x; tiex $x if $tie; $x /= 1; ok uninitialized, "/=$tie, int"; }
82 { my $x; tiex $x if $tie; $x %= 1; ok uninitialized, "\%=$tie, int"; }
84 { my $x; tiex $x if $tie; $x ++;   ok ! uninitialized, "postinc$tie, int"; }
85 { my $x; tiex $x if $tie; $x --;   ok ! uninitialized, "postdec$tie, int"; }
86 { my $x; tiex $x if $tie; ++ $x;   ok ! uninitialized, "preinc$tie, int"; }
87 { my $x; tiex $x if $tie; -- $x;   ok ! uninitialized, "predec$tie, int"; }