projects
/
external
/
curl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Git init
[external/curl.git]
/
tests
/
libtest
/
test75.pl
1
#!/usr/bin/env perl
2
# Check that the length of a given URL is correct
3
if ( $#ARGV != 1 )
4
{
5
print "Usage: $0 string length\n";
6
exit 3;
7
}
8
if (length(@ARGV[0]) != @ARGV[1])
9
{
10
print "Given host IP and port not supported\n";
11
exit 1;
12
}
13
exit 0;