rrl test was failing on some systems because not all versions of perl understand '-E'. changed to '-e'

This commit is contained in:
Curtis Blackburn
2016-01-15 14:35:12 -08:00
parent b4ccec331d
commit 3948d9c7c6

View File

@@ -105,7 +105,7 @@ burst () {
# compare integers $1 and $2; ensure the difference is no more than $3
range () {
$PERL -E 'if (abs(int($ARGV[0]) - int($ARGV[1])) > int($ARGV[2])) { exit(1) }' $1 $2 $3
$PERL -e 'if (abs(int($ARGV[0]) - int($ARGV[1])) > int($ARGV[2])) { exit(1) }' $1 $2 $3
}
# $1=domain $2=IP address $3=# of IP addresses $4=TC $5=drop