Bug #13374 for Business-Hours: Test Failure on Install

I've attached a patch that seems to fix the problem for me. It also includes an addition to the make process to dtrt with the testing dir.

--- libbusiness-hours-perl-0.06.orig/lib/Business/Hours.pm +++ libbusiness-hours-perl-0.06/lib/Business/Hours.pm @@ -191,7 +191,7 @@ my $hours = Business::Hours->new(); is(ref($hours), 'Business::Hours'); # how many business hours were there in the first week. -my $hours_span = $hours->for_timespan(Start => '0', End => ( (86400 * 7))); +my $hours_span = $hours->for_timespan(Start => '0', End => ( (86400 * 7) - 1)); is(ref($hours_span), 'Set::IntSpan'); # Are there 45 working hours @@ -429,7 +429,7 @@ my $end = $start + $period; my $hours = new Set::IntSpan; - while (!$hours->first) { + while (!defined($hours->first)) { if ($hours->last >= $start + $MAXTIME) { return -1; } --- libbusiness-hours-perl-0.06.orig/Makefile.PL +++ libbusiness-hours-perl-0.06/Makefile.PL @@ -20,6 +20,7 @@ $out =~ s/^(pure_all\b.*)/$1 testifypods/m; $out .= "\n\ntestifypods : \n"; + $out .= "\ttest -d t/ || mkdir t/\n"; foreach my $pod (keys %{$self->{MAN1PODS}}, keys %{$self->{MAN3PODS}}) @@ -32,8 +33,21 @@ $out .= "\t$self->{NOECHO}\$(POD2TEST_EXE) ". "$pod t/$test\n"; } - + return $out; } + + sub clean + { + my($self) = @_; + + $out = $self->SUPER::clean(@_); + $out =~ s/^(clean\b.*)/$1 cleantestdir/m; + + $out .= "\n\ncleantestdir : \n"; + $out .= "\t\$(RM_RF) t/\n"; + + return $out; + } }