/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
H A D | 06_fixrec.t | 35 ctrlfix($msg); 41 sub ctrlfix { subroutine
|
H A D | 18_rs_fixrec.t | 35 ctrlfix($msg); 41 sub ctrlfix { subroutine
|
H A D | 17_misc_meth.t | 113 ctrlfix(my $msg = "# expected <$x>, got <$a>"); 128 ctrlfix(my $msg = "expected UNDEF, got <$a>"); 132 ctrlfix(my $msg = "expected <$x>, got UNDEF"); 136 ctrlfix(my $msg = "expected <$x>, got <$a>"); 145 sub ctrlfix { subroutine
|
H A D | 22_autochomp.t | 115 ctrlfix($a, $x); 127 ctrlfix($msg); 146 ctrlfix(my $msg = "expected UNDEF, got <$a>"); 150 ctrlfix(my $msg = "expected <$x>, got UNDEF"); 154 ctrlfix(my $msg = "expected <$x>, got <$a>"); 163 sub ctrlfix { subroutine
|
H A D | 25_gen_nocache.t | 101 ctrlfix($a, $x); 113 ctrlfix($msg); 125 sub ctrlfix { subroutine
|
H A D | 01_gen.t | 93 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)}; 129 ctrlfix($a, $x); 141 ctrlfix($msg); 153 sub ctrlfix { subroutine
|
H A D | 13_size_rs.t | 76 ctrlfix(my $msg = "# expected <$x>, got <$a>"); 83 sub ctrlfix { subroutine
|
H A D | 32_defer_misc.t | 152 print ctrlfix("# Key $k is in $ha but not $hb"), "\n"; 155 print ctrlfix("# Key $k is <$a->{$k}> in $ha but <$b->{$k}> in $hb"), "\n"; 165 print ctrlfix("# Key $k is in $hb but not $ha"), "\n"; 190 my $msg = ctrlfix("# expected <$x>, got <$a>"); 203 ctrlfix(my $msg = "expected UNDEF, got <$a>"); 207 ctrlfix(my $msg = "expected <$x>, got UNDEF"); 211 ctrlfix(my $msg = "expected <$x>, got <$a>"); 220 sub ctrlfix { subroutine
|
H A D | 16_handle.t | 127 ctrlfix(my $msg = "# expected <$x>, got <$a>"); 138 ctrlfix($msg); 147 sub ctrlfix { subroutine
|
H A D | 05_size.t | 107 ctrlfix($a, $x); 117 sub ctrlfix { subroutine
|
H A D | 08_ro.t | 46 local $SIG{__WARN__} = sub { $good = 0; ctrlfix($warn = shift); }; 74 sub ctrlfix { subroutine
|
H A D | 33_defer_vs.t | 107 my $msg = ctrlfix("# expected <$x>, got <$a>"); 113 sub ctrlfix { subroutine
|
H A D | 09_gen_rs.t | 191 ctrlfix($msg); 201 ctrlfix($msg); 210 sub ctrlfix { subroutine
|
H A D | 30_defer.t | 233 my $msg = ctrlfix("expected <$x>, got <$z>"); 272 print ctrlfix("# Key $k is in $ha but not $hb"), "\n"; 275 print ctrlfix("# Key $k is <$a->{$k}> in $ha but <$b->{$k}> in $hb"), "\n"; 285 print ctrlfix("# Key $k is in $hb but not $ha"), "\n"; 310 my $msg = ctrlfix("# expected <$x>, got <$a>"); 316 sub ctrlfix { subroutine
|
H A D | 15_pushpop.t | 117 ctrlfix(my $msg = "# expected <$x>, got <$a>"); 123 sub ctrlfix { subroutine
|
H A D | 31_autodefer.t | 164 ctrlfix(my $msg = "# expected <$x>, got <$a>"); 170 sub ctrlfix { subroutine
|
H A D | 10_splice_rs.t | 197 ctrlfix(my $msg = "# expected <$x>, got <$a>"); 203 sub ctrlfix { subroutine
|
H A D | 04_splice.t | 189 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)}; 245 ctrlfix($a, $x); 252 sub ctrlfix { subroutine
|
H A D | 26_twrite.t | 323 ctrlfix($a, $x); 335 ctrlfix($msg); 347 sub ctrlfix { subroutine
|
H A D | 29_downcopy.t | 328 ctrlfix($a, $x); 340 ctrlfix($msg); 352 sub ctrlfix { subroutine
|
H A D | 29a_upcopy.t | 175 ctrlfix($a, $x); 187 ctrlfix($msg); 199 sub ctrlfix { subroutine
|
H A D | 19_cache.t | 186 sub ctrlfix { subroutine
|
H A D | 20_cache_full.t | 214 sub ctrlfix { subroutine
|
H A D | 27_iwrite.t | 225 sub ctrlfix { subroutine
|
H A D | 28_mtwrite.t | 285 sub ctrlfix { subroutine
|