diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-11 09:40:47 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-11 09:40:47 +0000 |
| commit | 7aacb9638b82bb210f294936a4632b0b924a39a7 (patch) | |
| tree | 96b37e3f3d75c8ff054c7dd33ca4ab2cbc2f23ef | |
| parent | 6825f1e67eb5ccf5083ef5e848f9c9f8de222170 (diff) | |
| download | irssi-7aacb9638b82bb210f294936a4632b0b924a39a7.zip | |
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3057 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | scripts/scriptassist.pl | 6 |
1 files changed, 1 insertions, 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; |