use Perl

I suddenly noticed that richardc's dead handy journal-to-mail script has stopped working. A bit of digging identified changes to the use.perl.org user page as the culprit.

A simple change to the module fixed it (at least as far as it passes it's tests and runs the code I need it to :). It's been mailed to the relevant people but here's my patch in case you need it right now.

--- /usr/lib/perl5/site_perl/5.6.1/WWW/UsePerl/Journal.pm       Sun Mar  3 20:09:14 2002
+++ lib/WWW/UsePerl/Journal.pm  Wed Sep 25 02:15:14 2002
@@ -43,7 +43,7 @@
);

-$VERSION = '0.05';
+$VERSION = '0.06';

=head2 new

@@ -100,7 +100,7 @@
         my $content = $self->{ua}->request(GET UP_URL . "/~$user/")->content;
         die "Cannot connect to " . UP_URL unless $content;

-        $content =~ m#User info for $user \((\d+)\)#ism
+        $content =~ m#$user \((\d+)\)#ism
           or die "$user does not exist";
         $1;
     }