ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection-pastebin
(Generate patch)

Comparing rxvt-unicode/src/perl/selection-pastebin (file contents):
Revision 1.12 by root, Thu Jan 19 19:51:08 2006 UTC vs.
Revision 1.13 by root, Mon Jan 23 23:13:03 2006 UTC

… …
13 13
14 my $tmpfile = "/tmp/$filename"; 14 my $tmpfile = "/tmp/$filename";
15 15
16 my $msg = "uploaded as $filename"; 16 my $msg = "uploaded as $filename";
17 17
18 if (open my $o, ">", $tmpfile) { 18 if (open my $o, ">:utf-8", $tmpfile) {
19 chmod 0644, $tmpfile; 19 chmod 0644, $tmpfile;
20 print $o $txt; 20 print $o $txt;
21 close $o; 21 close $o;
22 } else { 22 } else {
23 $msg = "couldn't write $tmpfile: $!"; 23 $msg = "couldn't write $tmpfile: $!";

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines