(F) Your machine doesn't implement a file truncation mechanism that
Configure knows about.
+=item Type of arg %d to &CORE::%s must be %s
+
+(F) The subroutine in question in the CORE package requires its argument
+to be a hard reference to data of the specified type. Overloading is
+ignored, so a reference to an object that is not the specified type, but
+nonetheless has overloading to handle it, will still not be accepted.
+
=item Type of arg %d to %s must be %s (not %s)
(F) This function requires the argument in that position to be of a
{
dSP;
int opnum = SvIOK(cSVOP_sv) ? (int)SvUV(cSVOP_sv) : 0;
- int defgv = PL_opargs[opnum] & OA_DEFGV;
+ int defgv = PL_opargs[opnum] & OA_DEFGV, whicharg = 0;
AV * const at_ = GvAV(PL_defgv);
SV **svp = AvARRAY(at_);
- I32 minargs = 0, maxargs = 0, numargs = AvFILLp(at_)+1, whicharg = 0;
+ I32 minargs = 0, maxargs = 0, numargs = AvFILLp(at_)+1;
I32 oa = opnum ? PL_opargs[opnum] >> OASHIFT : 0;
bool seen_question = 0;
const char *err = NULL;
svp++;
}
RETURN;
+ case OA_HVREF:
+ if (!svp || !*svp || !SvROK(*svp)
+ || SvTYPE(SvRV(*svp)) != SVt_PVHV)
+ DIE(aTHX_
+ /* diag_listed_as: Type of arg %d to &CORE::%s must be %s*/
+ "Type of arg %d to &CORE::%s must be hash reference",
+ whicharg, OP_DESC(PL_op->op_next)
+ );
+ PUSHs(SvRV(*svp));
+ break;
case OA_FILEREF:
if (!numargs) PUSHs(NULL);
else if(svp && *svp && SvROK(*svp) && isGV_with_GP(SvRV(*svp)))
like $@, qr/^Not enough arguments for $desc at /,
"&$o with too few args";
}
+ elsif ($p =~ /^\\%\$*\z/) { # \% and \%$$
+ $tests += 5;
+
+ eval "&CORE::$o(" . join(",", (1) x length $p) . ")";
+ like $@, qr/^Too many arguments for $o at /,
+ "&$o with too many args";
+ eval " &CORE::$o(" . join(",", (1) x (length($p)-2)) . ") ";
+ like $@, qr/^Not enough arguments for $o at /,
+ "&$o with too few args";
+ my $moreargs = ",1" x (length($p) - 2);
+ eval " &CORE::$o([]$moreargs) ";
+ like $@, qr/^Type of arg 1 to &CORE::$o must be hash reference at /,
+ "&$o with array ref arg";
+ eval " &CORE::$o(*foo$moreargs) ";
+ like $@, qr/^Type of arg 1 to &CORE::$o must be hash reference at /,
+ "&$o with typeglob arg";
+ eval " &CORE::$o(bless([], 'hov')$moreargs) ";
+ like $@, qr/^Type of arg 1 to &CORE::$o must be hash reference at /,
+ "&$o with non-hash arg with hash overload (which does not count)";
+ }
else {
die "Please add tests for the $p prototype";
test_proto 'cos';
test_proto 'crypt';
+test_proto 'dbmclose';
+test_proto 'dbmopen';
+{
+ last unless eval { require AnyDBM_File };
+ $tests ++;
+ my $filename = tempfile();
+ &mydbmopen(\my %db, $filename, 0666);
+ $db{1} = 2; $db{3} = 4;
+ &mydbmclose(\%db);
+ is scalar keys %db, 0, '&dbmopen and &dbmclose';
+}
+
test_proto 'die';
eval { dier('quinquangle') };
is $@, "quinquangle at frob line 6.\n", '&CORE::die'; $tests ++;