This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
wrong category for exec() warning
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 22 Jan 2000 12:46:26 +0000 (12:46 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 22 Jan 2000 12:46:26 +0000 (12:46 +0000)
p4raw-id: //depot/perl@4844

op.c
pod/perlop.pod

diff --git a/op.c b/op.c
index 823960b..fc5de55 100644 (file)
--- 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);
                }
            }
index a7553df..5a901c0 100644 (file)
@@ -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