Fixes Perl 5.10 warnings (closes #27)

khrt · Jan 20, 2017 · 509895b · 509895b
1 parent 957a281
commit 509895b
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/Raisin/Middleware/Formatter.pm b/lib/Raisin/Middleware/Formatter.pm
@@ -62,8 +62,12 @@ sub call {
     });
 }
 
-sub _path_has_extension { scalar(split /\./, shift) > 1 }
-sub _accept_header_set { length(shift) }
+sub _accept_header_set { length(shift || '') }
+sub _path_has_extension {
+    my $path = shift;
+    my @chunks = split /\./, $path;
+    scalar(@chunks) > 1;
+}
 
 sub negotiate_format {
     my ($self, $req) = @_;