diff options
author | Jeroen Vermeulen <jtv@precisiontranslationtools.com> | 2015-05-17 16:04:04 +0300 |
---|---|---|
committer | Jeroen Vermeulen <jtv@precisiontranslationtools.com> | 2015-05-17 16:04:04 +0300 |
commit | a25193cc5da6a271c4676e843db80ee19221822a (patch) | |
tree | db764696f2e663016a9ab87a95846501c585b4aa /scripts/analysis/perllib | |
parent | 108da163745699e724f581c3d33b1e8a5e26a9e9 (diff) |
Fix a lot of lint, mostly trailing whitespace.
This is lint reported by the new lint-checking functionality in beautify.py.
(We can change to a different lint checker if we have a better one, but it
would probably still flag these same problems.)
Lint checking can help a lot, but only if we get the lint under control.
Diffstat (limited to 'scripts/analysis/perllib')
-rw-r--r-- | scripts/analysis/perllib/Error.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/analysis/perllib/Error.pm b/scripts/analysis/perllib/Error.pm index cc9edbb69..e62044eff 100644 --- a/scripts/analysis/perllib/Error.pm +++ b/scripts/analysis/perllib/Error.pm @@ -15,7 +15,7 @@ use strict; use vars qw($VERSION); use 5.004; -$VERSION = "0.15"; +$VERSION = "0.15"; use overload ( '""' => 'stringify', @@ -146,7 +146,7 @@ sub throw { # if we are not rethrow-ing then create the object to throw $self = $self->new(@_) unless ref($self); - + die $Error::THROWN = $self; } @@ -429,7 +429,7 @@ sub except (&;$) { my $code = shift; my $clauses = shift || {}; my $catch = $clauses->{'catch'} ||= []; - + my $sub = sub { my $ref; my(@array) = $code->($_[0]); @@ -481,7 +481,7 @@ Error - Error/exception handling in an OO-ish way record Error::Simple("A simple error") and return; } - + unlink($file) or throw Error::Simple("$file: $!",$!); try { |