--- rxvt-unicode/src/perl/selection-pastebin	2006/01/17 16:53:47	1.1
+++ rxvt-unicode/src/perl/selection-pastebin	2006/01/17 17:01:54	1.3
@@ -1,5 +1,4 @@
 #! perl
-use Digest::MD5 qw/md5_hex/;
 
 my $timers = {};
 my $pastebin_cmd;
@@ -8,21 +7,23 @@
 sub on_start {
    my ($self) = @_;
    $pastebin_cmd =
-      $self->x_resource ("selection-pastebin-cmd")
+      $self->x_resource ("selection-pastebin.cmd")
       or "scp -p % ruth:/var/www/www.ta-sa.org/files/txt/";
 
    $pastebin_url = 
-      $self->x_resource ("selection-pastebin-url")
+      $self->x_resource ("selection-pastebin.url")
       or "http://www.ta-sa.org/files/txt/";
-   ();
+
+   ()
 }
 
 sub upload_paste {
    my ($self) = @_;
 
+   require Digest::MD5;
 
    my $txt = $self->selection;
-   my $filename = md5_hex ($txt) . ".txt";
+   my $filename = Digest::MD5::md5_hex ($txt) . ".txt";
 
    my $tmpfile = "/tmp/$filename";