From 7aacb9638b82bb210f294936a4632b0b924a39a7 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 11 Dec 2002 09:40:47 +0000
Subject: [PATCH] Updated from scripts.irssi.org

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3057 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 scripts/scriptassist.pl | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl
index acb480af..2efe599a 100644
--- a/scripts/scriptassist.pl
+++ b/scripts/scriptassist.pl
@@ -6,7 +6,7 @@
 use strict;
 
 use vars qw($VERSION %IRSSI);
-$VERSION = '2002121001';
+$VERSION = '2002121101';
 %IRSSI = (
     authors     => 'Stefan \'tommie\' Tomanek',
     contact     => 'stefan@pico.ruhr.de',
@@ -727,7 +727,6 @@ sub print_update (%) {
 
 sub contact_author ($) {
     my ($script) = @_;
-    $script =~ s/-/_/g;
     no strict 'refs';
     return unless defined %{ "Irssi::Script::${script}::" };
     my %header = %{ "Irssi::Script::${script}::IRSSI" };
@@ -803,13 +802,11 @@ sub get_scripts {
 
 sub get_remote_version ($$) {
     my ($script, $database) = @_;
-    $script =~ s/_/-/g;
     return $database->{$script.".pl"}{version};
 }
 
 sub get_local_version ($) {
     my ($script) = @_;
-    $script =~ s/-/_/g;
     no strict 'refs';
     return unless defined %{ "Irssi::Script::${script}::" };
     my $version = ${ "Irssi::Script::${script}::VERSION" };
@@ -873,7 +870,6 @@ sub check_scripts {
 sub download_script ($$) {
     my ($script, $xml) = @_;
     my %result;
-    $script =~ s/_/-/;
     my $site = $xml->{$script.".pl"}{source};
     $result{installed} = 0;
     $result{signed} = 0;