diff options
| -rwxr-xr-x | greypool | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -302,7 +302,9 @@ sub parse_transform { my $junk; ($pkg, $subst, $junk) = split /\s+/, $_[0]; - fatal "$config_file:$.: trailing junk on transform line" if $junk; + if(defined $junk || !defined $subst || !defined $pkg) { + fatal "$config_file:$.: transform requires exactly 2 arguments"; + } eval 'my $i = ""; $i =~ ' . $subst . ';'; if($@) { |
