diff options
Diffstat (limited to 'convert/merge2pcitable.pl')
| -rwxr-xr-x | convert/merge2pcitable.pl | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/convert/merge2pcitable.pl b/convert/merge2pcitable.pl index 5aebad80..addd2993 100755 --- a/convert/merge2pcitable.pl +++ b/convert/merge2pcitable.pl @@ -1,19 +1,22 @@ #!/usr/bin/perl -$ARGV[0] eq '-f' and $force = shift; -$ARGV[0] eq '-a' and $all = shift; +if ($0 =~ /merge2pcitable/) +{ + $ARGV[0] eq '-f' and $force = shift; + $ARGV[0] eq '-a' and $all = shift; -my $formats = join '|', grep {$_} map { /^read_(.*)/ ? $1 : '' } keys %main::; + my $formats = join '|', grep {$_} map { /^read_(.*)/ ? $1 : '' } keys %main::; -@ARGV == 3 or die "usage: $0 [-f] [-a] $formats <in_file> <mdk_pcitable>\n"; + @ARGV == 3 or die "usage: $0 [-f] [-a] $formats <in_file> <mdk_pcitable>\n"; -($format, $in, $pcitable) = @ARGV; + ($format, $in, $pcitable) = @ARGV; -my $read = $main::{"read_$format"} or die "unknown format $format (must be one of $formats)\n"; -my $d_pci = read_pcitable($pcitable); -my $d_in = $read->($in); -merge($d_pci, $d_in); -write_pcitable($d_pci); + my $read = $main::{"read_$format"} or die "unknown format $format (must be one of $formats)\n"; + my $d_pci = read_pcitable($pcitable); + my $d_in = $read->($in); + merge($d_pci, $d_in); + write_pcitable($d_pci); +} else { 1 } sub to_string { my ($id, $driver) = @_; |