Skip to content
Browse files

Checking in changes prior to tagging of version 0.9002.

Changelog diff is:

diff --git a/Changes b/Changes
index e26da49..8cf2e73 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.9002  Sat Apr  7 01:14:00 PDT 2012
+        - Fixed the test again to not fail on 5.8 where do() is cached
+
 0.9001  Tue Apr  3 04:30:31 CEST 2012
         - Added t/samples in the directory so the test won't fail
  • Loading branch information...
1 parent d1b8ca9 commit 4a90afe9098f482cacca27d62b14cb9f69f5336e @miyagawa committed Apr 7, 2012
Showing with 14 additions and 7 deletions.
  1. +3 −0 Changes
  2. +1 −1 MANIFEST
  3. +1 −1 lib/CPAN/cpanfile.pm
  4. +9 −3 t/Utils.pm
  5. +0 −2 t/parse.t
  6. 0 t/samples/.gitkeep
  7. 0 t/samples/placeholder
View
3 Changes
@@ -1,3 +1,6 @@
+0.9002 Sat Apr 7 01:14:00 PDT 2012
+ - Fixed the test again to not fail on 5.8 where do() is cached
+
0.9001 Tue Apr 3 04:30:31 CEST 2012
- Added t/samples in the directory so the test won't fail
View
2 MANIFEST
@@ -6,6 +6,6 @@ lib/cpanfile-faq.pod
lib/cpanfile.pod
Makefile.PL
MANIFEST This list of files
+README.md
t/parse.t
-t/samples/placeholder
t/Utils.pm
View
2 lib/CPAN/cpanfile.pm
@@ -4,7 +4,7 @@ use warnings;
use Cwd;
use CPAN::cpanfile::Environment;
-our $VERSION = '0.9001';
+our $VERSION = '0.9002';
sub new {
my($class, $file) = @_;
View
12 t/Utils.pm
@@ -4,19 +4,25 @@ use base qw(Exporter);
our @EXPORT = qw(write_cpanfile);
sub write_cpanfile {
+ my $dir = "t/sample-" . rand(100000);
+ mkdir $dir;
+ chdir $dir;
+
open my $fh, ">cpanfile" or die $!;
print $fh @_;
- return Remover->new("cpanfile");
+ return Remover->new($dir);
}
package
Remover;
sub new {
- bless { file => $_[1] }, $_[0];
+ bless { dir => $_[1], file => $_[2] }, $_[0];
}
sub DESTROY {
- unlink $_[0]->{file};
+ unlink 'cpanfile';
+ chdir "../..";
+ rmdir $_[0]->{dir};
}
View
2 t/parse.t
@@ -8,8 +8,6 @@ use t::Utils;
eval { require CPAN::Meta::Prereqs; 1 }
or plan skip_all => "CPAN::Meta::Prereqs not found";
-chdir "t/samples";
-
{
eval {
my $file = CPAN::cpanfile->load;
View
0 t/samples/.gitkeep
No changes.
View
0 t/samples/placeholder
No changes.

0 comments on commit 4a90afe

Please sign in to comment.
Something went wrong with that request. Please try again.