diff options
| author | Justin Davis <jrcd83@gmail.com> | 2012-06-01 18:42:51 +0200 |
|---|---|---|
| committer | Justin Davis <jrcd83@gmail.com> | 2012-06-01 18:42:51 +0200 |
| commit | 685819858e57f387871a69c9429b3e85d5d28dd5 (patch) | |
| tree | 74aff60d9f977a5e1afd458fd86c608cdf7b8833 | |
| parent | c3ed6df06d6c458f47173013dfab9c7497e064a8 (diff) | |
| download | genpkg-685819858e57f387871a69c9429b3e85d5d28dd5.tar.gz genpkg-685819858e57f387871a69c9429b3e85d5d28dd5.tar.xz | |
Die on bad verstr
| -rwxr-xr-x | misc/perlcore | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/misc/perlcore b/misc/perlcore index 7d43e87..633bf43 100755 --- a/misc/perlcore +++ b/misc/perlcore @@ -20,7 +20,7 @@ sub evalver chomp; my $ver = do { no strict; eval }; return $ver unless($@); - warn(qq{$path:$. bad version string "$_"\n}); + die qq{$path:$. bad version string "$_"\n}; } close($fh); |