*** empty log message ***

diff --git a/Changes b/Changes
index 508871b0afa7a2797b0cae206488f713820fa262..b5a40b65f28d7cf7ca7fbf8d64db37d06fcffffa 100644 (file)
--- a/Changes
+++ b/Changes
@@ -16,7 +16,7 @@ WISH: just for fun, do shade and tint with XRender.
 DUMB: support tex fonts
 
 TODO: kill arabic presentation form table
-TODO: bug ayin to document possible configure options?
+TODO: iso14755 code interacts badly with popup grabs
 
 7.2  Sun Jan 22 21:58:16 CET 2006
         - bugfix: urxvt (not urxvtd) did not correctly handle multiple

diff --git a/src/perl/digital-clock b/src/perl/digital-clock
index ca02d8e5c0bd8e5ddfdd3abffd73fa2cbaebb856..680545dae1860c2819db0aaa3910127df19fb61a 100644 (file)
--- a/src/perl/digital-clock
+++ b/src/perl/digital-clock
@@ -2,7 +2,7 @@
 
 # this creates a simple digital clock
 
-sub on_init {
+sub on_start {
    my ($self) = @_;
 
    $self->{overlay} = $self->overlay (-1, 0, 8, 1, urxvt::OVERLAY_RSTYLE, 0);

diff --git a/src/perl/selection b/src/perl/selection
index df943f00c88eb3f09fc38ae7ada07be946da2874..14a53091419879b7108b76a5764485b5e8b6400e 100644 (file)
--- a/src/perl/selection
+++ b/src/perl/selection
@@ -13,7 +13,6 @@ sub on_init {
    my ($self) = @_;
 
    for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) {
-      no re 'eval'; # just to be sure
       $res = $self->locale_decode ($res);
       utf8::encode $res;
       push @{ $self->{patterns} }, qr/$res/;
@@ -22,7 +21,7 @@ sub on_init {
    ()
 }
 
-# "find interetsing things"-patterns
+# "find interesting things"-patterns
 my @mark_patterns = (
    # common types of "parentheses"
    qr{ (?<![^[:space:]]) ‘ ([^‘’]+) ’ (?![^[:space]]) }x,
@@ -41,7 +40,7 @@ my @mark_patterns = (
    )}x,
 
    # shell-like argument quoting, basically always matches
-   qr{\G [\ \t|&;<>()] *(
+   qr{\G [\ \t|&;<>()]* (
       (?:
          [^\\"'\ \t|&;<>()]+
          | \\.

diff --git a/src/perl/selection-pastebin b/src/perl/selection-pastebin
index c2d8e0019151e77fbd229b4f64c0d71374c89a0e..0464236e28e2e4123ce066c5a384488c14f97470 100644 (file)
--- a/src/perl/selection-pastebin
+++ b/src/perl/selection-pastebin
@@ -15,7 +15,7 @@ sub upload_paste {
 
    my $msg = "uploaded as $filename";
 
-   if (open my $o, ">", $tmpfile) {
+   if (open my $o, ">:utf-8", $tmpfile) {
       chmod 0644, $tmpfile;
       print $o $txt;
       close $o;