From: root <root>
Date: Tue, 17 Jan 2006 16:57:07 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=2308f8fc6d9c80c1e2871647d018ae093b8cbec7;p=dana%2Furxvt.git

*** empty log message ***
---

diff --git a/src/perl/selection-pastebin b/src/perl/selection-pastebin
index aea02588..ac208acb 100644
--- a/src/perl/selection-pastebin
+++ b/src/perl/selection-pastebin
@@ -1,5 +1,4 @@
 #! perl
-use Digest::MD5 qw/md5_hex/;
 
 my $timers = {};
 my $pastebin_cmd;
@@ -14,15 +13,17 @@ sub on_start {
    $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";