Permalink
Browse files

Quell deprecated syntax warnings in perl 5.14

  • Loading branch information...
1 parent 935d818 commit bf7e6cfce17e85e809a7de06e07f05e1dd33c440 @ctfliblime ctfliblime committed Jun 15, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Squatting/Controller.pm
@@ -30,12 +30,12 @@ sub clone {
# view - name of default view
# log - logging object
# app - name of our app
-for my $m qw(name urls cr env input cookies state v status headers log view app) {
+for my $m (qw(name urls cr env input cookies state v status headers log view app)) {
*{$m} = sub : lvalue { $_[0]->{$m} }
}
# HTTP methods
-for my $m qw(get post head put delete options trace connect) {
+for my $m (qw(get post head put delete options trace connect)) {
*{$m} = sub { $_[0]->{$m}->(@_) }
}

0 comments on commit bf7e6cf

Please sign in to comment.