Sign in
fuchsia
/
third_party
/
curl
/
refs/tags/curl-7_19_1
/
.
/
tests
/
libtest
/
test75.pl
blob: 01a53ff15cf8f3605b56c8ba58286d0ba647dcc4 [
file
] [
log
] [
blame
]
#!/usr/bin/env perl
# Check that the length of a given URL is correct
if
(
$
#ARGV != 1 )
{
print
"Usage: $0 string length\n"
;
exit
3
;
}
if
(
length
(
@ARGV
[
0
])
!=
@ARGV
[
1
])
{
print
"Given host IP and port not supported\n"
;
exit
1
;
}
exit
0
;