Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DateTime-Locale CPAN distribution.

Report information
The Basics
Id: 22515
Status: resolved
Priority: 0/
Queue: DateTime-Locale

People
Owner: Nobody in particular
Requestors: SMPETERS [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.31
Fixed in: 0.3101



Subject: [PATCH] Bug in t/01basic.t causes catfile to fail.
The attached patch fixes a problem where t/01basic.t will not work with bleadperl. I'm not sure why it worked in Perl 5.8.8. --- t/01basic.t.old 2006-10-23 14:20:08.000000000 -0500 +++ t/01basic.t 2006-10-23 14:20:52.000000000 -0500 @@ -49,6 +49,7 @@ } { + require File::Spec; my $file = File::Spec->catfile( 'lib/DateTime/Locale/zu_ZA.pm' ); ok( ! -f $file, 'zu_ZA.pm does not exist' );
On Mon Oct 23 15:22:11 2006, SMPETERS wrote: Show quoted text
> The attached patch fixes a problem where t/01basic.t will not work with > bleadperl. I'm not sure why it worked in Perl 5.8.8. > > --- t/01basic.t.old 2006-10-23 14:20:08.000000000 -0500 > +++ t/01basic.t 2006-10-23 14:20:52.000000000 -0500 > @@ -49,6 +49,7 @@ > } > > { > + require File::Spec; > my $file = File::Spec->catfile( 'lib/DateTime/Locale/zu_ZA.pm' ); > ok( ! -f $file, 'zu_ZA.pm does not exist' ); >
Here's a more complete patch that fixes the problems I encounted with installing DateTime::Locale. --- t/01basic.t.old 2006-10-23 14:20:08.000000000 -0500 +++ t/01basic.t 2006-10-23 14:36:49.000000000 -0500 @@ -49,6 +49,7 @@ } { + require File::Spec; my $file = File::Spec->catfile( 'lib/DateTime/Locale/zu_ZA.pm' ); ok( ! -f $file, 'zu_ZA.pm does not exist' ); @@ -151,6 +152,7 @@ my $datetime_method = $test{datetime_method}; return unless $datetime_method; + return unless defined $dt; for my $i ( 1..$test{count} ) {