This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Croak when setting a tied @DB::args
[perl5.git]
/
perl.c
diff --git
a/perl.c
b/perl.c
index
73e1073
..
d50116b
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-3890,7
+3890,7
@@
Perl_init_dbargs(pTHX)
"leak" until global destruction. */
av_clear(args);
if (SvTIED_mg((const SV *)args, PERL_MAGIC_tied))
-
sv_unmagic((SV *)args, PERL_MAGIC_tied
);
+
Perl_croak(aTHX_ "Cannot set tied @DB::args"
);
}
AvREIFY_only(PL_dbargs);
}