[BACK]Return to patch-aa CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / pkgsrc / mail / p5-GMail-IMAPD / patches

File: [cvs.NetBSD.org] / pkgsrc / mail / p5-GMail-IMAPD / patches / Attic / patch-aa (download)

Revision 1.1.1.1 (vendor branch), Wed Aug 9 08:03:33 2006 UTC (15 years, 3 months ago) by jmmv
Branch: TNF
CVS Tags: pkgsrc-base, pkgsrc-2008Q2-base, pkgsrc-2008Q2, pkgsrc-2008Q1-base, pkgsrc-2008Q1, pkgsrc-2007Q4-base, pkgsrc-2007Q4, pkgsrc-2007Q3-base, pkgsrc-2007Q3, pkgsrc-2007Q2-base, pkgsrc-2007Q2, pkgsrc-2007Q1-base, pkgsrc-2007Q1, pkgsrc-2006Q4-base, pkgsrc-2006Q4, pkgsrc-2006Q3-base, pkgsrc-2006Q3, cwrapper, cube-native-xorg-base, cube-native-xorg
Changes since 1.1: +0 -0 lines

Initial import of p5-GMail-IMAPD, version 0.93:

The GMail-IMAPD module allows users to access their Gmail account with an
IMAP client by running a server which accepts IMAP connections.

$NetBSD: patch-aa,v 1.1.1.1 2006/08/09 08:03:33 jmmv Exp $

--- lib/GMail/IMAPD/Gmail.pm.orig	2006-01-20 07:01:58.000000000 +0100
+++ lib/GMail/IMAPD/Gmail.pm
@@ -105,7 +105,7 @@ sub login {
 
     if ( $res->is_success() ) {
         update_tokens( $self, $res );
-        if ( $res->content() =~ /var url = "(.*?)";/ ) {
+        if ( $res->content() =~ /var url = ["'](.*?)["'];/ ) {
             $req = HTTP::Request->new( GET => "$SSL_MAIL_URL/$1" );
             $req->header( 'Cookie' => $self->{_cookie} );
             $res = $self->{_ua}->request( $req );