diff options
| -rw-r--r-- | gv.c | 2 | ||||
| -rw-r--r-- | t/op/coreamp.t | 6 |
2 files changed, 7 insertions, 1 deletions
@@ -1364,7 +1364,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, case KEY_system: case KEY_truncate: case KEY_unlink: case KEY_unshift: - case KEY_values: case KEY_write: + case KEY_values: ampable = FALSE; } if (ampable) { diff --git a/t/op/coreamp.t b/t/op/coreamp.t index 9ab153bc29..2027f41ac5 100644 --- a/t/op/coreamp.t +++ b/t/op/coreamp.t @@ -822,6 +822,12 @@ test_proto 'warn'; lis [&mywarn()], [1], '&warn retval in list context'; } +test_proto 'write'; +$tests ++; +eval {&mywrite}; +like $@, qr'^Undefined format "STDOUT" called', + "&write without arguments can handle the null"; + # This is just a check to make sure we have tested everything. If we # haven’t, then either the sub needs to be tested or the list in # gv.c is wrong. |