Changeset d47d5fc for perl/modules/jabber.pl

Timestamp:

Mar 4, 2007, 11:21:56 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e132a2d

Parents:

65d3ef16

git-author:

Nelson Elhage <nelhage@mit.edu> (03/04/07 23:14:24)

git-committer:

Nelson Elhage <nelhage@mit.edu> (03/04/07 23:21:56)

Message:

Don't load jabber.pl if we detect IO::Socket::SSL 0.97

File:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -1 +1 @@
 # -*- mode: cperl; cperl-indent-level: 4; indent-tabs-mode: nil -*-
-package BarnOwl::Jabber;
 use warnings;
 use strict;
+
+package BarnOwl::Jabber;
 
 use Authen::SASL qw(Perl);
@@ -9 +10 @@
 use Net::DNS;
 use Getopt::Long;
+
+BEGIN {
+    if(eval {require IO::Socket::SSL;}) {
+        if($IO::Socket::SSL::VERSION eq "0.97") {
+            BarnOwl::error("You are using IO::Socket:SSL 0.97, which \n" .
+                           "contains bugs causing it not to work with barnowl's jabber.pl. We \n" .
+                           "recommend updating to the latest IO::Socket::SSL from CPAN. \n");
+            die("Not loading jabber.pl\n");
+        }
+    }       
+}
 
 no warnings 'redefine';