Sat Aug 11 2007 Chris Weyl <cweyl@alumni.drew.edu> 0.24-1 - update to 0.24 - license tag: GPL -> GPL+ - patch t/202_...t to write to a tmpdir rather than .epel9
parent
38b4d61f8f
commit
cfd93623e7
@ -1 +1 @@
|
||||
Moose-0.22.tar.gz
|
||||
Moose-0.26.tar.gz
|
||||
|
@ -1 +1 @@
|
||||
cc0b951659e9669a81a0e675b5618cb1 Moose-0.22.tar.gz
|
||||
3356b452daf2ea887b13c0899bbb6fd7 Moose-0.26.tar.gz
|
||||
|
@ -0,0 +1,38 @@
|
||||
--- t/200_examples/002_example_Moose_POOP.t.orig 2007-08-11 09:35:55.683687891 -0700
|
||||
+++ t/200_examples/002_example_Moose_POOP.t 2007-08-11 09:36:25.010424972 -0700
|
||||
@@ -37,14 +37,18 @@
|
||||
use Moose;
|
||||
|
||||
use DBM::Deep;
|
||||
+ use File::Temp qw{ tempfile };
|
||||
+ use File::Spec::Functions qw{ tmpdir };
|
||||
|
||||
extends 'Moose::Meta::Instance';
|
||||
|
||||
{
|
||||
my %INSTANCE_COUNTERS;
|
||||
+
|
||||
+ my (undef, $filename) = tempfile 't_202_XXXXXXX', DIR => tmpdir;
|
||||
|
||||
my $db = DBM::Deep->new({
|
||||
- file => "newswriter.db",
|
||||
+ file => $filename,
|
||||
autobless => 1,
|
||||
locking => 1,
|
||||
});
|
||||
@@ -54,7 +58,7 @@
|
||||
#warn Dumper $db;
|
||||
$db = undef;
|
||||
$db = DBM::Deep->new({
|
||||
- file => "newswriter.db",
|
||||
+ file => $filename,
|
||||
autobless => 1,
|
||||
locking => 1,
|
||||
});
|
||||
@@ -431,4 +435,4 @@
|
||||
|
||||
}
|
||||
|
||||
-unlink('newswriter.db') if -e 'newswriter.db';
|
||||
\ No newline at end of file
|
||||
+
|
Loading…
Reference in new issue