From 2d396f6e643c0b439ae20ce37b400918f0c9d5ea Mon Sep 17 00:00:00 2001
From: Sawyer X <xsawyerx@cpan.org>
Date: Tue, 14 Jun 2011 14:29:10 +0300
Subject: [PATCH] shift

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

diff --git a/lib/Dancer/FileUtils.pm b/lib/Dancer/FileUtils.pm
index e993e98f3..ab338616c 100644
--- a/lib/Dancer/FileUtils.pm
+++ b/lib/Dancer/FileUtils.pm
@@ -82,7 +82,7 @@ sub path_no_verify {
 sub dirname { File::Basename::dirname(@_) }
 
 sub set_file_mode {
-    my ($fh) = @_;
+    my $fh = shift;
 
     require Dancer::Config;
     my $charset = Dancer::Config::setting('charset') || 'utf-8';