Changeset d47d5fc for perl


Ignore:
Timestamp:
Mar 4, 2007, 11:21:56 PM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r6e6ded7 rd47d5fc  
    11# -*- mode: cperl; cperl-indent-level: 4; indent-tabs-mode: nil -*-
    2 package BarnOwl::Jabber;
    32use warnings;
    43use strict;
     4
     5package BarnOwl::Jabber;
    56
    67use Authen::SASL qw(Perl);
     
    910use Net::DNS;
    1011use Getopt::Long;
     12
     13BEGIN {
     14    if(eval {require IO::Socket::SSL;}) {
     15        if($IO::Socket::SSL::VERSION eq "0.97") {
     16            BarnOwl::error("You are using IO::Socket:SSL 0.97, which \n" .
     17                           "contains bugs causing it not to work with barnowl's jabber.pl. We \n" .
     18                           "recommend updating to the latest IO::Socket::SSL from CPAN. \n");
     19            die("Not loading jabber.pl\n");
     20        }
     21    }       
     22}
    1123
    1224no warnings 'redefine';
Note: See TracChangeset for help on using the changeset viewer.