diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-10-10 03:29:50 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-10-10 03:29:50 +0000 |
| commit | b89b8d61fac53d9ace6a3daf34694f40da6616bc (patch) | |
| tree | 5e2527b8be053ab8dec3f912284920eec0d852e6 /vms | |
| parent | e82f3e3c5fa2a46d2475b54a3790ddd631719562 (diff) | |
| download | perl-b89b8d61fac53d9ace6a3daf34694f40da6616bc.tar.gz | |
fix a doc typo and a warning typo in VMS::DCLsym
p4raw-id: //depot/perl@28977
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/DCLsym/DCLsym.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vms/ext/DCLsym/DCLsym.pm b/vms/ext/DCLsym/DCLsym.pm index 884e35783e..1bc72b8b4f 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"; |