diff options
| author | Colin Watson <cjwatson@debian.org> | 2023-08-02 00:40:04 +0100 |
|---|---|---|
| committer | Colin Watson <cjwatson@debian.org> | 2023-08-02 00:40:04 +0100 |
| commit | a37cf289ab455e83661aaa83196cb58cd0082665 (patch) | |
| tree | 741af518b44d266f0c55635c86309fe45aaadcd6 /perllib/sdf/calc.pl | |
| parent | 96891a072b0cf527942af6a0f401e3a8571a6b19 (diff) | |
Use modern Perl package separators
Bug-Debian: https://bugs.debian.org/1042846
Forwarded: no
Last-Update: 2023-08-02
Patch-Name: 008_modern_package_separators.diff
Diffstat (limited to 'perllib/sdf/calc.pl')
| -rw-r--r-- | perllib/sdf/calc.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/sdf/calc.pl b/perllib/sdf/calc.pl index d9e18a8..581f0bc 100644 --- a/perllib/sdf/calc.pl +++ b/perllib/sdf/calc.pl @@ -426,7 +426,7 @@ sub _calc_expand_range { if ($_calc_ops{"$op"}) { $result .= $_calc_ops{"$op"} } else { - &'AppMsg('error', "unknown operator '$op'"); + &::AppMsg('error', "unknown operator '$op'"); #print STDERR "calc_expand_range:Unknown operator $op\n"; $result .= ","; } @@ -656,7 +656,7 @@ sub _calc_var_name { if ($_calc_cur_recurse > $_calc_max_recurse) { if ("$_calc_last_warning" ne "$_calc_cur_warning") { - &'AppMsg('warning', "CALC recursion limit reached '$_calc_cur_warning'"); + &::AppMsg('warning', "CALC recursion limit reached '$_calc_cur_warning'"); $_calc_last_warning="$_calc_cur_warning"; } $ret="CALCERROR"; |