diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-07-08 13:14:05 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 08:36:27 +0000 |
| commit | 8bafa73588ba25326f9c8e2987e930b62d25444f (patch) | |
| tree | 18b526c68f814b842f03553e0e7f22ab47352ea9 /op.c | |
| parent | 3ea7755680302231fb5fb2feb962b211d651338f (diff) | |
| download | perl-8bafa73588ba25326f9c8e2987e930b62d25444f.tar.gz | |
warnings, line numbers & windows
Message-ID: <12022.1057655645@www59.gmx.net>
p4raw-id: //depot/perl@20068
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2676,7 +2676,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl) OP *curop; if (pm->op_pmflags & PMf_EVAL) { curop = 0; - if (CopLINE(PL_curcop) < PL_multi_end) + if (CopLINE(PL_curcop) < (line_t)PL_multi_end) CopLINE_set(PL_curcop, (line_t)PL_multi_end); } else if (repl->op_type == OP_CONST) |