diff options
| -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); |