shift

PerlDancer · Jun 28, 2011 · 2d396f6 · 2d396f6
1 parent ec4e37f
commit 2d396f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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';