diff options
| author | Tom Feist <shabble@metavore.org> | 2011-07-16 05:50:17 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-07-16 05:50:17 +0000 |
| commit | 87f860070566aeb037a8245c105c9b1b00dc620e (patch) | |
| tree | efe3162280c5b2a38a530b55b5355f087a9417ab | |
| parent | fix code-paths not properly stopping the print text signal (diff) | |
| download | irssi-scripts-87f860070566aeb037a8245c105c9b1b00dc620e.tar.gz irssi-scripts-87f860070566aeb037a8245c105c9b1b00dc620e.zip | |
trim out the caller() uglyness, since it's not actually needed for get_format().
| -rw-r--r-- | feature-tests/getchan.pl | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/feature-tests/getchan.pl b/feature-tests/getchan.pl index 622f708..92044aa 100644 --- a/feature-tests/getchan.pl +++ b/feature-tests/getchan.pl @@ -80,15 +80,8 @@ my $state; sub get_format_string { my ($module, $tag, $theme) = @_; - $theme ||= Irssi::current_theme(); - my $format_str; - { - # deeeeeeep black magic. - #print "Trying to get format for $module, $tag"; - local *CORE::GLOBAL::caller = sub { $module }; - $format_str = $theme->get_format($module, $tag); - } - return $format_str; + $theme ||= Irssi::current_theme; + return $theme->get_format($module, $tag); } |