# # Check if PCI ids are on the ISO # use Test::Most tests => 1; use File::Basename; my ($image_path) = @ARGV; bail_on_fail; my $valid; my $valid2; $valid = -r "/media/iso_check/i586/isolinux/pci.ids" if -r "/media/iso_check/i586"; $valid2 = -r "/media/iso_check/x86_64/isolinux/pci.ids" if -r "/media/iso_check/x86_64"; $valid &= $valid2 if -r "/media/iso_check/x86_64" && -r "/media/iso_check/i586"; $valid = $valid2 if -r "/media/iso_check/x86_64" && !$valid; ok ($valid, 'HDT can find pci.ids.'); done_testing();