In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/873f5ddf07b431a397f9ee90e6bd4c33b92f0c87?hp=4ed3fda49b8590b1f2536acfe87ecdec36a6d516>
- Log ----------------------------------------------------------------- commit 873f5ddf07b431a397f9ee90e6bd4c33b92f0c87 Author: Craig A. Berry <[email protected]> Date: Thu Jul 2 12:32:18 2009 -0500 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. ----------------------------------------------------------------------- Summary of changes: vms/vms.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) 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)) { -- Perl5 Master Repository
