diff options
| author | bw1 | 2017-04-04 23:08:20 +0200 |
|---|---|---|
| committer | bw1 | 2017-04-04 23:08:20 +0200 |
| commit | fd440b052f5041128a8a0ac9404479046e5560cd (patch) | |
| tree | 4901d76d8a0ccd0b9d951e3f60c5f5beae134665 /scripts/newsline.pl | |
| parent | fb18e157c763e483cf41dc07c46e51f75a5c83ed (diff) | |
| download | scripts.irssi.org-fd440b052f5041128a8a0ac9404479046e5560cd.tar.bz2 | |
[newsline][crit] rewrite open; can openurl
Diffstat (limited to 'scripts/newsline.pl')
| -rw-r--r-- | scripts/newsline.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/scripts/newsline.pl b/scripts/newsline.pl index 0f54eee..b37cfcc 100644 --- a/scripts/newsline.pl +++ b/scripts/newsline.pl @@ -3,7 +3,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '2003021101'; +$VERSION = '2017040101'; %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', @@ -287,10 +287,10 @@ sub call_openurl ($) { my ($url) = @_; no strict "refs"; # check for a loaded openurl - if (defined %{ "Irssi::Script::openurl::" }) { - &{ "Irssi::Script::openurl::launch_url" }($url); + if (my $code = Irssi::Script::openurl::->can('launch_url')) { + $code->($url); } else { - print CLIENTCRAP "%R>>%n Please install openurl.pl"; + print CLIENTCRAP "%R>>%n Please install openurl.pl"; } use strict "refs"; } @@ -377,7 +377,7 @@ sub reload_config() { my $text; if (-e $filename) { local *F; - open F, "<".$filename; + open F, "<",$filename; $text .= $_ foreach (<F>); close F; if ($text) { @@ -402,7 +402,7 @@ sub reload_config() { sub save_config() { local *F; my $filename = Irssi::settings_get_str('newsline_sites_file'); - open(F, ">$filename"); + open(F, '>',$filename); my $dumper = Data::Dumper->new([\%sites], ['sites']); $dumper->Purity(1)->Deepcopy(1); my $data = $dumper->Dump; |