[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