--- rxvt-unicode/src/urxvt.pm	2006/03/04 20:17:52	1.137
+++ rxvt-unicode/src/urxvt.pm	2006/07/03 19:10:09	1.140
@@ -257,9 +257,10 @@
 
 =item automove-background
 
-This is basically a one-line extension that dynamically changes the background pixmap offset
-to the window position, in effect creating the same effect as pseudo transparency with
-a custom pixmap. No scaling is supported in this mode. Exmaple:
+This is basically a very small extension that dynamically changes the
+background pixmap offset to the window position, in effect creating the
+same effect as pseudo transparency with a custom pixmap. No scaling is
+supported in this mode. Exmaple:
 
    @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background
 
@@ -370,7 +371,7 @@
 
 =head2 Extension Objects
 
-Very perl extension is a perl class. A separate perl object is created
+Every perl extension is a perl class. A separate perl object is created
 for each terminal and each extension and passed as the first parameter to
 hooks. So extensions can use their C<$self> object without having to think
 about other extensions, with the exception of methods and members that
@@ -909,10 +910,8 @@
       verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
          if $verbosity >= 10;
 
-      keys %$cb;
-
-      while (my ($pkg, $cb) = each %$cb) {
-         my $retval_ = eval { $cb->($TERM->{_pkg}{$pkg}, @_) };
+      for my $pkg (keys %$cb) {
+         my $retval_ = eval { $cb->{$pkg}->($TERM->{_pkg}{$pkg}, @_) };
          $retval ||= $retval_;
 
          if ($@) {