--- rxvt-unicode/src/perl/selection-pastebin	2006/01/25 15:33:43	1.15
+++ rxvt-unicode/src/perl/selection-pastebin	2011/11/19 17:40:48	1.17
@@ -6,7 +6,10 @@
    require Digest::MD5;
 
    my $txt = $self->selection;
-   my $filename = Digest::MD5::md5_hex ($txt) . ".txt";
+
+   my $filename = $txt;
+   utf8::encode $filename;
+   $filename = Digest::MD5::md5_hex ($filename) . ".txt";
 
    my $tmpfile = "/tmp/$filename";
 
@@ -23,7 +26,7 @@
    my $cmd = $self->{pastebin_cmd};
    $cmd =~ s/%/$tmpfile/;
 
-   my $pid = $self->exec_async ("/bin/sh", "-c", $cmd);
+   my $pid = $self->exec_async ($cmd);
 
    $self->{pw} = urxvt::pw->new->start ($pid)->cb (sub {
       my (undef, $status) = @_;