From a25193cc5da6a271c4676e843db80ee19221822a Mon Sep 17 00:00:00 2001 From: Jeroen Vermeulen Date: Sun, 17 May 2015 20:04:04 +0700 Subject: 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. --- scripts/analysis/perllib/Error.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts/analysis/perllib') 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 { -- cgit v1.2.3