From b5d0aa31d20fc7c2d2e696eae61d42ae6c481112 Mon Sep 17 00:00:00 2001
From: Sawyer X <xsawyerx@cpan.org>
Date: Thu, 11 Nov 2010 09:43:33 +0200
Subject: [PATCH 1/2] create rootdir paths as well for Windows to work

---
 t/00_base/000_create_fake_env.t | 25 +++++++++----------------
 1 file changed, 9 insertions(+), 16 deletions(-)

diff --git a/t/00_base/000_create_fake_env.t b/t/00_base/000_create_fake_env.t
index 744992a2f..f7a97cf71 100644
--- 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",
     );
 }

From 4cfa1150c34e83df0090d35cd565b9bf6de07599 Mon Sep 17 00:00:00 2001
From: Sawyer X <xsawyerx@cpan.org>
Date: Thu, 11 Nov 2010 09:43:42 +0200
Subject: [PATCH 2/2] next dev release

---
 lib/Dancer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Dancer.pm b/lib/Dancer.pm
index 397bf69d8..8fba0f97a 100644
--- 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