Small bug fix.
Tony Bates
Mon Nov 13 15:45:33 CET 1995
I found a problem whereby maintainers were not getting notified on
deletes when they had the "mnt-nfy" attrivute set.
Here's the patch.
--Tony.
*** /homes/new/tony/dbase-new/maintainer.pl Thu Dec 29 10:04:09 1994
--- maintainer.pl Mon Nov 13 09:38:23 1995
***************
*** 206,218 ****
# there on, treat them as normal notifiers.
sub NotifyMaintainers {
! local(*Oldobject, *NewObject) = @_;
local(@notif) = ();
local($line);
! local($del) = 1 if !&entype(*NewObject);
local($m) = 0;
local($source);
if ($OldObject{"mb"}) {
foreach $line (split(/\n/, $OldObject{"mb"})) {
@notif = (@notif, split(/\s+/, $line));
--- 206,221 ----
# there on, treat them as normal notifiers.
sub NotifyMaintainers {
! local(*OldObject, *NewObject) = @_;
local(@notif) = ();
local($line);
! local($del) = 0;
local($m) = 0;
local($source);
+ if ($NewObject{"ud"} || !&entype(*NewObject)) {
+ $del = 1;
+ }
if ($OldObject{"mb"}) {
foreach $line (split(/\n/, $OldObject{"mb"})) {
@notif = (@notif, split(/\s+/, $line));
*** /homes/new/tony/dbase-new/notify.pl Wed Oct 5 08:44:43 1994
--- notify.pl Fri Nov 10 17:43:12 1995
***************
*** 43,49 ****
sub DoAddNotify {
local(*notifiers, *old, *new, $delete) = @_;
! return if &encmp(*old, *new);
foreach (@notifiers) {
if (!$notify{$_}) {
--- 43,51 ----
sub DoAddNotify {
local(*notifiers, *old, *new, $delete) = @_;
! if(!$delete) {
! return if &encmp(*old, *new);
! }
foreach (@notifiers) {
if (!$notify{$_}) {
-------- Logged at Mon Nov 20 14:29:47 MET 1995 ---------
[ rr-impl Archive ]