romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-25 16:33:38 +03:00
Code Issues Projects Releases Packages Wiki Activity

test suite mods for the netrc testing stuff

Browse source
This commit is contained in:
Daniel Stenberg 2002-05-21 22:20:52 +00:00
parent 51fcee6f81
commit a928f2c4aa
3 changed files with 76 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tests/getpart.pm
View file

@ -7,6 +7,9 @@ my $warning=0;
my $trace=0;
sub getpartattr {
# if $part is undefined (ie only one argument) then
# return the attributes of the section
my ($section, $part)=@_;
my %hash;
@ -19,7 +22,9 @@ sub getpartattr {
if(!$inside && ($_ =~ /^ *\<$section/)) {
$inside++;
}
elsif((1 ==$inside) && ($_ =~ /^ *\<$part([^>]*)/)) {
if((1 ==$inside) && ( ($_ =~ /^ *\<$part([^>]*)/) ||
!(defined($part)) )
) {
$inside++;
my $attr=$1;
my @p=split("[ \t]", $attr);