*** empty log message ***

diff --git a/src/perl/urxvt-popup b/src/perl/urxvt-popup
index 8e7a042408e5d62f7df8535bc0ada73a0bd59d7c..3d90d405e46942cad26db6f3d0c8f92e8a04d9c3 100644 (file)
--- a/src/perl/urxvt-popup
+++ b/src/perl/urxvt-popup
@@ -1,5 +1,8 @@
 #! perl
 
+# this extension implements popup-menu functionality for urxvt. it works
+# together with the urxvt::popup class.
+
 use List::Util;
 
 sub refresh {

diff --git a/src/urxvt.pm b/src/urxvt.pm
index 8637989232495ebef71fad139ccb7b95a40e87d2..7b29d10cb404ff5f19bca52584b14818a41cf3ec 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -995,7 +995,7 @@ sub show {
 
    urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
                "--transient-for" => $self->{term}->parent,
-               "-pe" => "urxvt_popup")
+               "-pe" => "urxvt-popup")
       or die "unable to create popup window\n";
 }