Package: sdf
Version: 2.001-9
When run with Perl 5.10 (as in lenny), gives a warning:
$* is no longer supported at /usr/share/perl5/sdf/subs.pl line 624.
Diff to fix appears to be this. It's not clear to me whether any actual
events use multi-line matching; in that case things would get a bit more
complex.
Roger
--- /usr/share/perl5/sdf/subs.pl.old 1999-05-12 13:39:14.000000000 +0100
+++ /usr/share/perl5/sdf/subs.pl 2009-11-30 17:20:00.000000000 +0000
@@ -620,10 +620,6 @@
local($event, $action, $mask);
local($old_match_rule);
- # Ensure multi-line matching is enabled
- $old_match_rule = $*;
- $* = 1;
-
for ($event = $#code; $event >= 0; $event--) {
# get the action to execute, if any
@@ -632,7 +628,7 @@
# Mask out events
$mask = $mask[$event];
- next if $mask ne '' && $style !~ /^$mask$/;
+ next if $mask ne '' && $style !~ /^$mask$/m;
return if $attr{'noevents'};
# execute the action
@@ -640,8 +636,6 @@
&'AppMsg("warning", "execution of '$action' failed: $@") if $@;
}
- # Restore the multi-line match flag setting
- $* = $old_match_rule;
}
#
@@ -656,10 +650,6 @@
local($event, $action, $mask);
local($old_match_rule);
- # Ensure multi-line matching is enabled
- $old_match_rule = $*;
- $* = 1;
-
for ($event = $#code; $event >= 0; $event--) {
# get the action to execute, if any
@@ -668,15 +658,13 @@
# Mask out events
$mask = $mask[$event];
- next if $mask ne '' && $name !~ /^$mask$/;
+ next if $mask ne '' && $name !~ /^$mask$/m;
# execute the action
eval $action;
&'AppMsg("warning", "execution of '$action' failed: $@") if $@;
}
- # Restore the multi-line match flag setting
- $* = $old_match_rule;
}
#
# >>Description::
Linux radiant 2.6.26-2-686 #1 SMP Wed Nov 4 20:45:37 UTC 2009 i686 GNU/Linux
lrwxrwxrwx 1 root root 11 Nov 23 11:18 /lib/libc.so.6 -> libc-2.7.so
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
