[prev in list] [next in list] [prev in thread] [next in thread]
List: mason-cvs
Subject: [Mason-checkins] CVS: mason/dist/lib/HTML/Mason Exceptions.pm,1.12,1.13
From: Dave Rolsky <autarch () users ! sourceforge ! net>
Date: 2002-02-20 21:19:23
[Download RAW message or body]
Update of /cvsroot/mason/mason/dist/lib/HTML/Mason
In directory usw-pr-cvs1:/tmp/cvs-serv20933
Modified Files:
Exceptions.pm
Log Message:
remove some unneeded code (and whitespace on empty lines)
Index: Exceptions.pm
===================================================================
RCS file: /cvsroot/mason/mason/dist/lib/HTML/Mason/Exceptions.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- Exceptions.pm 20 Feb 2002 19:26:56 -0000 1.12
+++ Exceptions.pm 20 Feb 2002 21:19:21 -0000 1.13
@@ -59,15 +59,7 @@
use Exception::Class (%e);
-# Turn on tracing for each exception class.
-foreach my $pkg (keys(%e)) {
- $pkg->do_trace(1);
-}
-
-if ($HTML::Mason::DEBUG)
-{
- Exception::Class::Base->Trace(1);
-}
+Exception::Class::Base->Trace(1);
my %abbrs = map { $e{$_}{abbr} => $_ } grep {exists $e{$_}{abbr}} keys %e;
@@ -102,7 +94,7 @@
sub as_string
{
my ($self) = @_;
-
+
return $self->error;
}
@@ -137,7 +129,7 @@
my ($self) = @_;
my ($file, @msgs, @frames);
-
+
@frames = $self->filtered_frames;
if (UNIVERSAL::isa($self, 'HTML::Mason::Exception::Compilation')) {
my $error = $self->error;
@@ -162,7 +154,7 @@
my $info = $self->analyze_error;
my @fields;
-
+
push(@fields, [File => $info->{file}]);
push(@fields, [Errors => join(", ", map { sprintf("[%d:%s]", $_->[1], $_->[0]) } \
@{$info->{errors}})]);
push(@fields, [Stack => join(", ", map { sprintf("[%s:%d]", $_->filename, \
$_->line) } @{$info->{frames}})]);
_______________________________________________
Mason-checkins mailing list
Mason-checkins@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-checkins
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic