LP1579144: Give Sip/MsgType.pm a copy of to_bool() from ILS.pm

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Sip/MsgType.pm b/Sip/MsgType.pm
index aa894d2..6c9cda3 100644 (file)
--- a/Sip/MsgType.pm
+++ b/Sip/MsgType.pm
@@ -288,6 +288,15 @@ foreach my $i (keys(%handlers)) {
     }
 }
 
+# Stolen from ../ILS.pm, useful in here as well
+sub to_bool {
+    my $bool = shift;
+
+    # If it's defined, and matches a true sort of string, or is
+    # a non-zero number, then it's true.
+    return defined($bool) && (($bool =~ /true|y|yes/i) || $bool != 0);
+}
+
 sub new {
     my ($class, $msg, $seqno) = @_;
     my $self = {};