From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 2 Jul 2009 17:32:18 +0000 (-0500)
Subject: Remove fake facility strings from VMS start-up warnings.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=873f5ddf07b431a397f9ee90e6bd4c33b92f0c87;p=p5sagit%2Fp5-mst-13.2.git

Remove fake facility strings from VMS start-up warnings.

They weren't consistent and the second one caused a compiler
warning.  Plus there's no particular reason to pretend we're
using the native message API when we're not.
---

diff --git a/vms/vms.c b/vms/vms.c
index 9e94935..a3151de 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -1058,7 +1058,7 @@ Perl_vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,
 #if defined(PERL_IMPLICIT_CONTEXT)
             if (aTHX == NULL) {
                 fprintf(stderr,
-                    "%%PERL-W-VMS_INIT Can't read CRTL environ\n");
+                    "Can't read CRTL environ\n");
             } else
 #endif
                 Perl_warn(aTHX_ "Can't read CRTL environ\n");
@@ -1098,7 +1098,7 @@ Perl_vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,
 #if defined(PERL_IMPLICIT_CONTEXT)
               if (aTHX == NULL) {
                   fprintf(stderr,
-                     "%Perl-VMS-Init, Value of CLI symbol \"%s\" too long",lnm);
+                     "Value of CLI symbol \"%s\" too long",lnm);
               } else
 #endif
 		if (ckWARN(WARN_MISC)) {