more tolerant parsing of credential file

This commit is contained in:
hjp 2013-12-18 16:25:54 +00:00
parent e7af75898f
commit defe773283
1 changed files with 1 additions and 1 deletions

View File

@ -44,7 +44,7 @@ sub _read_cred {
open(FN, "<$fn") or die "cannot open $fn: $!"; open(FN, "<$fn") or die "cannot open $fn: $!";
my $line = <FN>; my $line = <FN>;
close(FN); close(FN);
my @cred = split(/[\s\n]/, $line); my @cred = split(/\s+/, $line);
return @cred; return @cred;
} }