This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
To: perl5-porters@perl.com
authorMark-Jason Dominus <mjd@plover.com>
Sun, 20 Dec 1998 14:35:20 +0000 (09:35 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 21 Dec 1998 12:22:44 +0000 (12:22 +0000)
Subject: PATCH (5.005_02): Dejargonizing
Date: Sun, 20 Dec 1998 14:35:20 -0500
Message-ID: <19981220193520.11230.qmail@plover.com>

From: Mark-Jason Dominus <mjd@plover.com>
To: perl5-porters@perl.com
Subject: PATCH (5.005_02): Spelling correction in warning message
Date: Sun, 20 Dec 1998 13:51:30 -0500
Message-ID: <19981220185130.11067.qmail@plover.com>

p4raw-id: //depot/cfgperl@2493

doio.c
op.c

diff --git a/doio.c b/doio.c
index c7c6455..08577a9 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -470,7 +470,7 @@ nextargv(register GV *gv)
                       || (_djstat_fail_bits & _STFAIL_TRUENAME)!=0
 #endif
                       ) {
-                       warn("Can't do inplace edit: %s would not be uniq",
+                       warn("Can't do inplace edit: %s would not be unique",
                          SvPVX(sv) );
                        do_close(gv,FALSE);
                        continue;
diff --git a/op.c b/op.c
index e82a45c..003614e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1709,7 +1709,7 @@ localize(OP *o, I32 lex)
            char *s;
            for (s = PL_bufptr; *s && (isALNUM(*s) || (*s & 0x80) || strchr("@$%, ",*s)); s++) ;
            if (*s == ';' || *s == '=')
-               warner(WARN_PARENTHESIS, "Parens missing around \"%s\" list",
+               warner(WARN_PARENTHESIS, "Parentheses missing around \"%s\" list",
                                lex ? "my" : "local");
        }
     }