wrong category for exec() warning

p4raw-id: //depot/perl@4844

2 files changed, 5 insertions, 3 deletions

diff --git a/op.c b/op.c
index 823960bc56..fc5de55f4a 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 a7553dff42..5a901c00df 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