Merge branch 'release/1.1999_03'

Ovid · Nov 11, 2010 · ea9ef19 · ea9ef19
2 parents 94c89b5 + 4cfa115
commit ea9ef19
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 17 deletions.
diff --git a/lib/Dancer.pm b/lib/Dancer.pm
@@ -31,7 +31,7 @@ use File::Basename 'basename';
 use base 'Exporter';
 
 $AUTHORITY = 'SUKRIA';
-$VERSION   = '1.1999_02';
+$VERSION   = '1.1999_03';
 @EXPORT    = qw(
   after
   any

diff --git a/t/00_base/000_create_fake_env.t b/t/00_base/000_create_fake_env.t
@@ -4,24 +4,17 @@ use warnings;
 use File::Spec;
 use File::Path;
 use File::Basename;
-use Test::More tests => 4 * 2, import => ['!pass'];
+use Test::More tests => 4 * 3, import => ['!pass'];
 
-foreach my $dir ( qw/ public logs views lib / ) {
-    my $new_dir = File::Spec->catdir(
-        dirname($0), $dir
-    );
-
-    my $newer_dir = File::Spec->catdir(
-        't', 'lib', $dir
-    );
-
-    ok(
-        ( -d $new_dir or mkpath($new_dir) ),
-        "Created $new_dir",
-    );
+my @dirs = map {
+    $_,
+    File::Spec->catdir( dirname($0), $_ ),
+    File::Spec->catdir( 't', 'lib', $_ ),
+} qw/ public logs views lib /;
 
+foreach my $dir (@dirs) {
     ok(
-        ( -d $newer_dir or mkpath($newer_dir) ),
-        "Created $newer_dir",
+        ( -d $dir or mkpath($dir) ),
+        "Created $dir",
     );
 }