--- rxvt-unicode/src/perl/tabbed	2012/08/15 19:41:37	1.34
+++ rxvt-unicode/src/perl/tabbed	2013/05/25 23:14:08	1.36
@@ -7,7 +7,7 @@
 
 =head1 NAME
 
-   tabbed - tabbed interface to urxvt
+tabbed - tabbed interface to urxvt
 
 =head1 DESCRIPTION
 
@@ -402,7 +402,7 @@
 # simply proxies all interesting calls back to the tabbed class.
 
 {
-   for my $hook qw(start destroy key_press property_notify) {
+   for my $hook (qw(start destroy key_press property_notify)) {
       eval qq{
          sub on_$hook {
             my \$parent = \$_[0]{term}{parent}