Look for ifconfig.sh.in in testsock.pl parent dir

Instead of using the current working directory to find the ifconfig.sh
script, look for the ifconfig.sh.in template in the directory where the
testsock.pl script is located. This enables the testsock.pl script to be
called from any working directory.

Using the ifconfig.sh.in template is sufficient, since it contains
the necessary information to be extracted: the max= value (which is
hard-coded in the template).

(cherry picked from commit e24d3b21d0)
This commit is contained in:
Tom Krizek 2023-01-02 17:54:58 +01:00
parent bcf1f5c808
commit 8033857295
No known key found for this signature in database
GPG key ID: 01623B9B652A20A7

View file

@ -15,6 +15,8 @@
require 5.001;
use Cwd 'abs_path';
use File::Basename;
use Socket;
use Getopt::Long;
@ -27,7 +29,8 @@ my @ids;
if ($id != 0) {
@ids = ($id);
} else {
my $fn = "ifconfig.sh";
my $dir = dirname(abs_path($0));
my $fn = "$dir/ifconfig.sh.in";
open FH, "< $fn" or die "open < $fn: $!\n";
while (<FH>) {
@ids = (1..$1)