changeset 366:dcf47cf23ecc

...
author anatofuz
date Fri, 03 Jul 2020 16:17:47 +0900
parents f0c51aac6bed
children 650fac123133
files src/gearsTools/trans_impl.pl
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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/..");