projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tidy the Local.pm changes
[spider.git]
/
perl
/
DXProtHandle.pm
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index c15f4939c551577f1ea4e34e19f824202265c8ab..f28de6d065cbae54941df6703de4e9ed55a26248 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-273,7
+273,7
@@
sub handle_11
}
# local processing
}
# local processing
- if (defined
*
Local::spot) {
+ if (defined
&
Local::spot) {
my $r;
eval {
$r = Local::spot($self, @spot);
my $r;
eval {
$r = Local::spot($self, @spot);
@@
-360,7
+360,7
@@
sub handle_12
}
# local processing
}
# local processing
- if (defined
*
Local::ann) {
+ if (defined
&
Local::ann) {
my $r;
eval {
$r = Local::ann($self, $line, @_[1..6]);
my $r;
eval {
$r = Local::ann($self, $line, @_[1..6]);
@@
-947,7
+947,7
@@
sub handle_23
# note this only takes the first one it gets
Geomag::update($d, $_[2], $sfi, $k, $i, @_[6..8], $r);
# note this only takes the first one it gets
Geomag::update($d, $_[2], $sfi, $k, $i, @_[6..8], $r);
- if (defined
*
Local::wwv) {
+ if (defined
&
Local::wwv) {
my $rep;
eval {
$rep = Local::wwv($self, $_[1], $_[2], $sfi, $k, $i, @_[6..8], $r);
my $rep;
eval {
$rep = Local::wwv($self, $_[1], $_[2], $sfi, $k, $i, @_[6..8], $r);
@@
-1318,7
+1318,7
@@
sub handle_73
my $wcy = WCY::update($d, @_[2..12]);
my $wcy = WCY::update($d, @_[2..12]);
- if (defined
*
Local::wcy) {
+ if (defined
&
Local::wcy) {
my $rep;
eval {
$rep = Local::wcy($self, @_[1..12]);
my $rep;
eval {
$rep = Local::wcy($self, @_[1..12]);