diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-21 06:06:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-21 06:06:44 +0000 |
| commit | cc507455df60f06ecd74b2df5a0ae9f17fb3291d (patch) | |
| tree | 5f131231aae2e4f8465cd9aa6647185d789c82fc /op.c | |
| parent | 90430aa1bf5124b92f92cfc6b13f379955a95711 (diff) | |
| download | perl-cc507455df60f06ecd74b2df5a0ae9f17fb3291d.tar.gz | |
make parenthetic warnings look consistent; make diagnostic on
"use 5.6" et al mention the alternate form; pod fixups
p4raw-id: //depot/perl@5851
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -168,7 +168,7 @@ Perl_pad_allocmy(pTHX_ char *name) Perl_warner(aTHX_ WARN_MISC, "\"our\" variable %s redeclared", name); Perl_warner(aTHX_ WARN_MISC, - "(Did you mean \"local\" instead of \"our\"?)\n"); + "\t(Did you mean \"local\" instead of \"our\"?)\n"); break; } } while ( off-- > 0 ); @@ -5711,7 +5711,7 @@ Perl_ck_defined(pTHX_ OP *o) /* 19990527 MJD */ Perl_warner(aTHX_ WARN_DEPRECATED, "defined(@array) is deprecated"); Perl_warner(aTHX_ WARN_DEPRECATED, - "(Maybe you should just omit the defined()?)\n"); + "\t(Maybe you should just omit the defined()?)\n"); break; case OP_RV2HV: break; /* Globals via GV can be undef */ @@ -5719,7 +5719,7 @@ Perl_ck_defined(pTHX_ OP *o) /* 19990527 MJD */ Perl_warner(aTHX_ WARN_DEPRECATED, "defined(%%hash) is deprecated"); Perl_warner(aTHX_ WARN_DEPRECATED, - "(Maybe you should just omit the defined()?)\n"); + "\t(Maybe you should just omit the defined()?)\n"); break; default: /* no warning */ @@ -6562,7 +6562,7 @@ Perl_peep(pTHX_ register OP *o) Perl_warner(aTHX_ WARN_EXEC, "Statement unlikely to be reached"); Perl_warner(aTHX_ WARN_EXEC, - "(Maybe you meant system() when you said exec()?)\n"); + "\t(Maybe you meant system() when you said exec()?)\n"); CopLINE_set(PL_curcop, oldline); } } |