From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 10 Oct 2006 03:29:50 +0000 (+0000)
Subject: fix a doc typo and a warning typo in VMS::DCLsym
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b89b8d61fac53d9ace6a3daf34694f40da6616bc;p=p5sagit%2Fp5-mst-13.2.git

fix a doc typo and a warning typo in VMS::DCLsym

p4raw-id: //depot/perl@28977
---

diff --git a/vms/ext/DCLsym/DCLsym.pm b/vms/ext/DCLsym/DCLsym.pm
index 884e357..1bc72b8 100644
--- a/vms/ext/DCLsym/DCLsym.pm
+++ b/vms/ext/DCLsym/DCLsym.pm
@@ -7,7 +7,7 @@ use strict;
 
 # Package globals
 @ISA = ( 'DynaLoader' );
-$VERSION = '1.02';
+$VERSION = '1.03';
 my(%Locsyms) = ( ':ID' => 'LOCAL' );
 my(%Gblsyms) = ( ':ID' => 'GLOBAL');
 my $DoCache = 1;
@@ -106,7 +106,7 @@ sub FIRSTKEY {
     open(P,'Show Symbol * |');
     while (<P>) {
       ($name,$eqs,$val) = /^\s+(\S+) (=+) (.+)/
-        or carp "VMS::CLISym: unparseable line $_";
+        or carp "VMS::DCLsym: unparseable line $_";
       $name =~ s#\*##;
       $val =~ s/"(.*)"$/$1/ or $val =~ s/^(\S+).*/$1/;
       if ($eqs eq '==') { $Gblsyms{$name} = $val; }
@@ -157,7 +157,7 @@ VMS::DCLsym - Perl extension to manipulate DCL symbols
   tie %cgisyms, VMS::DCLsym, 'GLOBAL';
 
 
-  $handle = new VMS::DCLsyms;
+  $handle = new VMS::DCLsym;
   $value = $handle->getsym($name);
   $handle->setsym($name,$value,'GLOBAL') or die "Can't create symbol: $!\n";
   $handle->delsym($name,'LOCAL') or die "Can't delete symbol: $!\n";