--- rxvt-unicode/src/perl/selection-pastebin	2006/01/18 10:11:03	1.5
+++ rxvt-unicode/src/perl/selection-pastebin	2006/01/18 10:31:37	1.6
@@ -16,7 +16,8 @@
 
    my $msg = "uploaded $filename";
 
-   if (open my $o, ">" . $tmpfile) {
+   if (open my $o, ">$tmpfile") {
+      chmod 0644, $tmpfile;
       print $o $txt;
       close $o;
    } else {