From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 22 Jan 2000 12:46:26 +0000 (+0000)
Subject: wrong category for exec() warning
X-Git-Tag: accepted/trunk/20130322.191538~35659
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=eeb6a2c983b428f442d6f8105468afb166a69047;p=platform%2Fupstream%2Fperl.git

wrong category for exec() warning

p4raw-id: //depot/perl@4844
---

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