Last Modified time delta is compared with file size which causes false
notifications whenever a file that is in the same directory as the file
of interest is changed.
sub _is_changed{
my ($self) = @_;
my $return = 0;
if( -s $self->_file != $self->_modified ){ <=== BAD CODE
if( -M $self->_file != $self->_modified ){ <=== RECOMMENDED CHANGE
$return = 1;
$self->_modified( $self->_file );
}
return $return;
}
RT for rt.cpan.org