index 710a6492032096ba5129a88e0616f15c0558acdb..87a6e47e6feadcc38be8ed6090dad96cc2b2ee05 100755 (executable)
# Get major version number from the file name.
$file =~ m/-(\d+)\./;
my $major_version = 1ドル;
+ die "file name $file is not in the expected format\n"
+ unless defined $major_version;
open(my $fh, '<', $file) || die "could not open file $file: $!\n";
open(my $tfh, '>', $tmpfile) || die "could not open file $tmpfile: $!\n";