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 ]