--- rxvt-unicode/src/perl/selection-pastebin	2006/01/19 16:22:13	1.10
+++ rxvt-unicode/src/perl/selection-pastebin	2006/01/23 23:13:03	1.13
@@ -13,9 +13,9 @@
 
    my $tmpfile = "/tmp/$filename";
 
-   my $msg = "uploaded $filename";
+   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;
@@ -44,7 +44,7 @@
       urxvt::timer
               ->new
               ->after (5)
-              ->cb (sub {undef $timer; undef $ov; });
+              ->cb (sub { undef $timer; undef $ov; });
 }
 
 sub on_start {