This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove fake facility strings from VMS start-up warnings.
authorCraig A. Berry <craigberry@mac.com>
Thu, 2 Jul 2009 17:32:18 +0000 (12:32 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 2 Jul 2009 17:32:18 +0000 (12:32 -0500)
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.

vms/vms.c

index 9e94935..a3151de 100644 (file)
--- 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)) {