diff options
| author | Joey Hess <joey@kodama.kitenet.net> | 2008-10-06 16:10:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kodama.kitenet.net> | 2008-10-06 16:10:47 -0400 |
| commit | fea76a11bc3673bc6fb523cffd8c325982bf44f7 (patch) | |
| tree | aada35d3c682f2e27501925d39517afb4f313cb8 /IkiWiki/Plugin/remove.pm | |
| parent | f504df45bc57a03aae5173e871bcd5a39e706475 (diff) | |
| download | ikiwiki-fea76a11bc3673bc6fb523cffd8c325982bf44f7.tar ikiwiki-fea76a11bc3673bc6fb523cffd8c325982bf44f7.tar.gz | |
remove: Avoid $_ breakage. (Stupid, stupid perl.)
This avoids another one of those $_ scoping issues where a deep call to a
function that changes $_ clobbers the array that is being looped over.
Diffstat (limited to 'IkiWiki/Plugin/remove.pm')
| -rw-r--r-- | IkiWiki/Plugin/remove.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/remove.pm b/IkiWiki/Plugin/remove.pm index cf95026c8..68bf9d1ee 100644 --- a/IkiWiki/Plugin/remove.pm +++ b/IkiWiki/Plugin/remove.pm @@ -98,7 +98,9 @@ sub removal_confirm ($$@) { #{{{ my $attachment=shift; my @pages=@_; - check_canremove($_, $q, $session) foreach @pages; + foreach my $page (@pages) { + check_canremove($page, $q, $session); + } # Save current form state to allow returning to it later # without losing any edits. |