Oops, I'm obviously not completely fluent in Perl yet. Here is a better Watch_Incoming():
sub Watch_Incoming {
use DebPool::Logging qw(:functions :facility :level);
while (my @events = $inotify->read) {
my @changes;
foreach (@events) {
push @changes, $_->name if ($_->name =~ /\.changes$/);
}
if (@changes > 0) {
Log_Message("Found changes: ".join(', ', @changes),
LOG_GENERAL, LOG_DEBUG);
return @changes;
}
}
return undef;
}
--
Magnus Holmgren [EMAIL PROTECTED]
(No Cc of list mail needed, thanks)
"Exim is better at being younger, whereas sendmail is better for
Scrabble (50 point bonus for clearing your rack)" -- Dave Evans
pgpc1WmT8KW26.pgp
Description: PGP signature
