[703] in BarnOwl Developers
[D-O-H] r761 - trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:08:51 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Mon, 10 Sep 2007 20:00:46 -0400 (EDT)
Author: nelhage
Date: 2007-09-10 20:00:45 -0400 (Mon, 10 Sep 2007)
New Revision: 761
Modified:
trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
Log:
Use "" instead of `undef' as a default for messages with no reply
command to hopefully squelch perl warnings.
Modified: trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
===================================================================
--- trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm 2007-09-08 21:33:34 UTC (rev 760)
+++ trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm 2007-09-11 00:00:45 UTC (rev 761)
@@ -903,6 +903,7 @@
my %jhash = j2hash( $j, { direction => 'in',
sid => $sid } );
$jhash{type} = 'admin';
+
BarnOwl::queue_message( BarnOwl::Message->new(%jhash) );
}
@@ -1133,14 +1134,14 @@
}
}
elsif ( $jtype eq 'normal' ) {
- $props{replycmd} = undef;
+ $props{replycmd} = "";
$props{private} = 1;
}
elsif ( $jtype eq 'headline' ) {
- $props{replycmd} = undef;
+ $props{replycmd} = "";
}
elsif ( $jtype eq 'error' ) {
- $props{replycmd} = undef;
+ $props{replycmd} = "";
$props{body} = "Error "
. $props{error_code}
. " sending to "
