--- rxvt-unicode/src/perl/selection-pastebin	2006/01/17 16:53:47	1.1
+++ rxvt-unicode/src/perl/selection-pastebin	2006/01/17 16:57:07	1.2
@@ -1,5 +1,4 @@
 #! perl
-use Digest::MD5 qw/md5_hex/;
 
 my $timers = {};
 my $pastebin_cmd;
@@ -14,15 +13,17 @@
    $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";