diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-09-07 00:00:14 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-08 16:23:49 +0000 |
| commit | fd322ea4b51d50f9797ac81898fa52eb789ab9ba (patch) | |
| tree | 942d74a6693e79708a4901bed6778a962063664d /util.c | |
| parent | 3aed30dc9bb800ec04a3f44e5176c45032741bdd (diff) | |
| download | perl-fd322ea4b51d50f9797ac81898fa52eb789ab9ba.tar.gz | |
tiddly tidy up for util.c
Message-ID: <20020906220013.GD428@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@17871
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3499,14 +3499,14 @@ Perl_report_evil_fh(pTHX_ GV *gv, IO *io, I32 op) if (op == OP_phoney_OUTPUT_ONLY || op == OP_phoney_INPUT_ONLY) { if (ckWARN(WARN_IO)) { + const char *direction = (op == OP_phoney_INPUT_ONLY) ? "in" : "out"; if (name && *name) Perl_warner(aTHX_ packWARN(WARN_IO), "Filehandle %s opened only for %sput", - name, (op == OP_phoney_INPUT_ONLY ? "in" : "out")); + name, direction); else Perl_warner(aTHX_ packWARN(WARN_IO), - "Filehandle opened only for %sput", - (op == OP_phoney_INPUT_ONLY ? "in" : "out")); + "Filehandle opened only for %sput", direction); } } else { |