git://git.camperquake.de
/
videosite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix quoting in AsyncWgetFileGetter again
[videosite.git]
/
videosite-weechat.pl
diff --git
a/videosite-weechat.pl
b/videosite-weechat.pl
index
4693df4
..
5bddd1f
100644
(file)
--- a/
videosite-weechat.pl
+++ b/
videosite-weechat.pl
@@
-6,6
+6,9
@@
use strict;
use File::Spec;
use Module::Load;
use Data::Dumper;
use File::Spec;
use Module::Load;
use Data::Dumper;
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
weechat::register(
"videosite",
weechat::register(
"videosite",
@@
-77,7
+80,7
@@
sub videosite_hook {
my ($data, $buffer, $args) = @_;
my %event = (
message => $args,
my ($data, $buffer, $args) = @_;
my %event = (
message => $args,
-
ewpf
=> sub { weechat::print($buffer, @_) },
+
io
=> sub { weechat::print($buffer, @_) },
window => $buffer,
);
window => $buffer,
);
@@
-94,7
+97,7
@@
sub message_hook {
my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message ) = @_;
my %event = (
message => $message,
my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message ) = @_;
my %event = (
message => $message,
-
ewpf
=> sub { weechat::print($buffer, @_) },
+
io
=> sub { weechat::print($buffer, @_) },
window => $buffer
);
window => $buffer
);