Sign in
fuchsia
/
third_party
/
curl
/
49ff9390344930cdc5a6df57b68297c98f78b728
/
.
/
tests
/
libtest
/
test75.pl
blob: 31cdfb8cc4b65b7cd7da5e89a5da847ff2ce2300 [
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
;