[perl-www-contact commit] r49 - trunk/lib/WWW/Contact

[codesite...@google.com]

Author: fayland
Date: Fri Nov 7 18:41:06 2008
New Revision: 49

Modified:
trunk/lib/WWW/Contact/Gmail.pm

Log:
remove debug code

Modified: trunk/lib/WWW/Contact/Gmail.pm
==============================================================================
--- trunk/lib/WWW/Contact/Gmail.pm (original)
+++ trunk/lib/WWW/Contact/Gmail.pm Fri Nov 7 18:41:06 2008
@@ -40,11 +40,6 @@
$ua->follow_link( url => '?v=cl&pnl=a' );

$content = $ua->content();
-
- open(my $fh, '>', 'E:\gmail.html');
- print $fh $content;
- close($fh);
-
@contacts = $self->get_contacts_from_html($content);

return wantarray ? @contacts : \@contacts;