diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-07-02 12:32:18 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-07-02 12:32:18 -0500 |
| commit | 873f5ddf07b431a397f9ee90e6bd4c33b92f0c87 (patch) | |
| tree | b0ce656b68c1405ac81a56994c0f80cfa2f39c05 /vms | |
| parent | 4ed3fda49b8590b1f2536acfe87ecdec36a6d516 (diff) | |
| download | perl-873f5ddf07b431a397f9ee90e6bd4c33b92f0c87.tar.gz | |
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.
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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)) { |