Update my email address in perl.c

Message-Id: <200204022027.PAA29837@mailhub1.stratus.com>

p4raw-id: //depot/perl@15691

diff --git a/AUTHORS b/AUTHORS
index 776f93a..2da858e 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -500,7 +500,7 @@ Patrick O'Brien                <pdo@cs.umd.edu>
 Paul A Sand                    <pas@unh.edu>
 Paul David Fardy               <pdf@morgan.ucs.mun.ca>
 Paul Eggert                    <eggert@twinsun.com>
-Paul Green                     <Paul_Green@stratus.com>
+Paul Green                     <Paul.Green@stratus.com>
 Paul Hoffman                   <phoffman@proper.com>
 Paul Holser                    <Paul.Holser.pholser@nortelnetworks.com>
 Paul Johnson                   <paul@pjcj.net>

diff --git a/perl.c b/perl.c
index 84ef3af..ca21f18 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2504,7 +2504,7 @@ Perl_moreswitches(pTHX_ char *s)
 #endif
 #ifdef __VOS__
        PerlIO_printf(PerlIO_stdout(),
-                     "Stratus VOS port by Paul_Green@stratus.com, 1997-2002\n");
+                     "Stratus VOS port by Paul.Green@stratus.com, 1997-2002\n");
 #endif
 #ifdef __OPEN_VM
        PerlIO_printf(PerlIO_stdout(),