From 2308f8fc6d9c80c1e2871647d018ae093b8cbec7 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Tue, 17 Jan 2006 16:57:07 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/selection-pastebin | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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";
 
-- 
2.34.1