From eeb6a2c983b428f442d6f8105468afb166a69047 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 22 Jan 2000 12:46:26 +0000 Subject: [PATCH] wrong category for exec() warning p4raw-id: //depot/perl@4844 --- op.c | 6 ++++-- pod/perlop.pod | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/op.c b/op.c index 823960b..fc5de55 100644 --- a/op.c +++ b/op.c @@ -6371,8 +6371,10 @@ Perl_peep(pTHX_ register OP *o) line_t oldline = CopLINE(PL_curcop); CopLINE_set(PL_curcop, CopLINE((COP*)o->op_next)); - Perl_warner(aTHX_ WARN_SYNTAX, "Statement unlikely to be reached"); - Perl_warner(aTHX_ WARN_SYNTAX, "(Maybe you meant system() when you said exec()?)\n"); + Perl_warner(aTHX_ WARN_EXEC, + "Statement unlikely to be reached"); + Perl_warner(aTHX_ WARN_EXEC, + "(Maybe you meant system() when you said exec()?)\n"); CopLINE_set(PL_curcop, oldline); } } diff --git a/pod/perlop.pod b/pod/perlop.pod index a7553df..5a901c0 100644 --- a/pod/perlop.pod +++ b/pod/perlop.pod @@ -362,7 +362,7 @@ With the C-style operators that would have been written like this: unlink("alpha", "beta", "gamma") || (gripe(), next LINE); -Use "or" for assignment is unlikely to do what you want; see below. +Using "or" for assignment is unlikely to do what you want; see below. =head2 Range Operators -- 2.7.4