From e28d05be15d078b28fa404ca4bc51d0c427eebbc Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Wed, 6 Oct 2010 22:34:04 +0100 Subject: modified the API signal handling to prepend $p by default (as prompt_info sort of worked). --- prompt_info/prompt_replace.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/prompt_info/prompt_replace.pl b/prompt_info/prompt_replace.pl index 9b5d229..9abf66d 100644 --- a/prompt_info/prompt_replace.pl +++ b/prompt_info/prompt_replace.pl @@ -22,7 +22,7 @@ our %IRSSI = sub DEBUG () { 1 } #sub DEBUG () { 0 } -my $prompt_data = undef; +my $prompt_data = ''; my $prompt_item = undef; my $region_active = 0; @@ -121,6 +121,7 @@ sub init { sub change_prompt_sig { my ($text) = @_; + $text = '$p' . $text; print "Got prompt change sig with: $text" if DEBUG; my $changed = ($prompt_data ne $text); -- cgit v1.2.3