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

[codesite...@google.com]

Author: sachinjsk
Date: Wed Oct 29 09:23:43 2008
New Revision: 42

Modified:
trunk/lib/WWW/Contact/Indiatimes.pm
trunk/lib/WWW/Contact/Lycos.pm

Log:
fix - wrong comment

Modified: trunk/lib/WWW/Contact/Indiatimes.pm
==============================================================================
--- trunk/lib/WWW/Contact/Indiatimes.pm (original)
+++ trunk/lib/WWW/Contact/Indiatimes.pm Wed Oct 29 09:23:43 2008
@@ -54,7 +54,7 @@
my ($csv) = shift;
my @contacts;

- # first_name, last_name, full_name, nickname, e-mail.
+ # e-mail, file_as, first_name, last_name
my @lines = split(/\n/, $csv);
shift @lines; # skip the first line
foreach my $line (@lines) {

Modified: trunk/lib/WWW/Contact/Lycos.pm
==============================================================================
--- trunk/lib/WWW/Contact/Lycos.pm (original)
+++ trunk/lib/WWW/Contact/Lycos.pm Wed Oct 29 09:23:43 2008
@@ -53,7 +53,7 @@
my ($csv) = shift;
my @contacts;

- # first_name, last_name, full_name, nickname, e-mail.
+ # first_name, middle_name, last_name, nickname, e-mail.
my @lines = split(/\n/, $csv);
shift @lines; # skip the first line
foreach my $line (@lines) {