Lines Matching refs:what
117 my ($data, $sub, $magic_len, $what) = @_;
123 is (defined ($clone), '', "truncated $what to $i should fail");
125 like ($@, "/^Magic number checking on storable $what failed/",
134 my ($data, $sub, $what, $name) = @_;
137 is (defined ($clone), '', "$name $what should fail");
138 like ($@, $what, $name);
142 my ($contents, $sub, $what, $isnetwork) = @_;
143 my $isfile = $what eq 'file';
158 + ($isnetwork ? $network_magic : $other_magic), $what);
237 "/^Corrupted storable $what \\(binary v$header->{major}.$header->{minor}\\)/",
244 "/^Corrupted storable $what \\(binary v$header->{major}.$minor1\\)/",