← Back to branch summary

~ubuntu-branches/ubuntu/karmic/cyrus-imapd-2.2/karmic

« back to all changes in this revision

Viewing changes to perl/imap/IMAP.pm

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2006-07-11 18:51:39 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060711185139-gl3oe4tppp7g3euf
Tags: 2.2.13-4ubuntu1
Synchronize with Debian unstable.

Show diffs side-by-side

added added

removed removed

Lines of Context:
perl/imap/IMAP.pm
37
37
# AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
38
38
# OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
39
39
#
40
 
# $Id: IMAP.pm,v 1.19 2003/10/22 18:50:18 rjs3 Exp $
 
40
# $Id: IMAP.pm,v 1.22 2005/08/08 15:09:09 ken3 Exp $
41
41
 
42
42
package Cyrus::IMAP;
43
43
 
225
225
  $opts{-authz} = "" if (!defined($opts{-authz}));
226
226
  $rc = 0;
227
227
  if (defined($opts{-mechanism}) && lc($opts{-mechanism}) ne 'login') {
 
228
    # This seems to be the only way to avoid a
 
229
    # `Use of uninitialized value in subroutine entry' warning with perl -w
 
230
    # when $opts{-password} is uninitialized (which may well be ok for e.g.
 
231
    # the GSSAPI mechanism).
 
232
    no warnings 'uninitialized';
228
233
    $rc = $self->_authenticate($opts{-mechanism}, $opts{-service},
229
234
                               $opts{-authz}, $opts{-user}, $opts{-password},
230
235
                               $opts{-minssf}, $opts{-maxssf});