4 # test auto defined() test insertion
10 $SIG{__WARN__} = sub { $warns++; warn $_[0] };
14 print "not " if $warns;
25 while (my $name = <FILE>)
27 $seen++ if $name eq '0';
29 print "not " unless $seen;
37 $seen++ if $line eq '0';
38 } while ($line = <FILE>);
40 print "not " unless $seen;
46 while (($seen ? $dummy : $name) = <FILE>)
48 $seen++ if $name eq '0';
50 print "not " unless $seen;
56 while ($where{$seen} = <FILE>)
58 $seen++ if $where{$seen} eq '0';
60 print "not " unless $seen;
65 while (my $name = readdir(DIR))
67 $seen++ if $name eq '0';
69 print "not " unless $seen;
75 while (($seen ? $dummy : $name) = readdir(DIR))
77 $seen++ if $name eq '0';
79 print "not " unless $seen;
84 while ($where{$seen} = readdir(DIR))
86 $seen++ if $where{$seen} eq '0';
88 print "not " unless $seen;
92 while (my $name = glob('*'))
94 $seen++ if $name eq '0';
96 print "not " unless $seen;
101 while (($seen ? $dummy : $name) = glob('*'))
103 $seen++ if $name eq '0';
105 print "not " unless $seen;
109 while ($where{$seen} = glob('*'))
111 $seen++ if $where{$seen} eq '0';
113 print "not " unless $seen;
118 my %hash = (0 => 1, 1 => 2);
121 while (my $name = each %hash)
123 $seen++ if $name eq '0';
125 print "not " unless $seen;
130 while (($seen ? $dummy : $name) = each %hash)
132 $seen++ if $name eq '0';
134 print "not " unless $seen;
138 while ($where{$seen} = each %hash)
140 $seen++ if $where{$seen} eq '0';
142 print "not " unless $seen;