# HG changeset patch
# User anatofuz
# Date 1593760667 -32400
# Node ID dcf47cf23ecc0d8433234cfb4ff653a18b895512
# Parent  f0c51aac6bed2611f5fdeccc61594a17ca802eca
...

diff -r f0c51aac6bed -r dcf47cf23ecc src/gearsTools/trans_impl.pl
--- a/src/gearsTools/trans_impl.pl	Fri Jul 03 16:11:43 2020 +0900
+++ b/src/gearsTools/trans_impl.pl	Fri Jul 03 16:17:47 2020 +0900
@@ -13,6 +13,10 @@
 getopts("wo:" => \%opt);
 
 my $impl_file = shift or die 'require impl file';
+if ($impl_file !~ /\.h$/) {
+    die "require header file";
+}
+
 my $impl_ir         = Gears::Util->parse_with_separate_code_data_gears(File::Spec->rel2abs($impl_file));
 my $interface_file  = Gears::Util->find_using_interface_header($impl_ir->{isa},"$FindBin::Bin/..");