aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests/getchan.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-07-16 05:50:17 +0000
committerTom Feist <shabble@metavore.org>2011-07-16 05:50:17 +0000
commit87f860070566aeb037a8245c105c9b1b00dc620e (patch)
treeefe3162280c5b2a38a530b55b5355f087a9417ab /feature-tests/getchan.pl
parentfix code-paths not properly stopping the print text signal (diff)
downloadirssi-scripts-87f860070566aeb037a8245c105c9b1b00dc620e.tar.gz
irssi-scripts-87f860070566aeb037a8245c105c9b1b00dc620e.zip
trim out the caller() uglyness, since it's not actually needed for get_format().
Diffstat (limited to 'feature-tests/getchan.pl')
-rw-r--r--feature-tests/getchan.pl11
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);
}