Permalink
Browse files

Remove a warning with recent perls.

Deprecated using qw(...) directly as a list.
  • Loading branch information...
1 parent dbf98a7 commit d877a955412e49970fbce05fb4bea2476a07c207 @shlomif committed Oct 29, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Devel/Trepan/Util.pm
View
@@ -125,7 +125,7 @@ unless (caller) {
print extract_expression($stmt), "\n";
}
- for my $cmd qw(eval eval$ eval% eval@ evaluate% none) {
+ for my $cmd (qw(eval eval$ eval% eval@ evaluate% none)) {
printf "parse_eval_suffix($cmd) => '%s'\n", parse_eval_suffix($cmd);
}
}

1 comment on commit d877a95

rocky commented on d877a95 Nov 4, 2011

Reine Urban later noticed this and issued a separate pull request. So this has been encorporated now.

Please sign in to comment.