[prev in list] [next in list] [prev in thread] [next in thread] 

List:       mason-cvs
Subject:    [Mason-checkins] CVS: mason/dist/lib/HTML/Mason Request.pm,1.108,1.109
From:       Dave Rolsky <autarch () users ! sourceforge ! net>
Date:       2002-02-24 23:16:34
[Download RAW message or body]

Update of /cvsroot/mason/mason/dist/lib/HTML/Mason
In directory usw-pr-cvs1:/tmp/cvs-serv25781

Modified Files:
	Request.pm 
Log Message:
don't unconditionally throw an error here (I am dummm)


Index: Request.pm
===================================================================
RCS file: /cvsroot/mason/mason/dist/lib/HTML/Mason/Request.pm,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -r1.108 -r1.109
--- Request.pm	24 Feb 2002 06:32:21 -0000	1.108
+++ Request.pm	24 Feb 2002 23:16:32 -0000	1.109
@@ -131,8 +131,9 @@
 	{
 	    local $SIG{'__DIE__'} = $interp->die_handler if $interp->die_handler;
 	    eval { $comp = $interp->load($path) };
-	    $err = $@;
-	    UNIVERSAL::can( $err, 'rethrow' ) ? $err->rethrow : error($err);
+	    if ($err = $@) {
+		UNIVERSAL::can( $err, 'rethrow' ) ? $err->rethrow : error($err);
+	    }
 	}
 	unless ($comp) {
 	    if (defined($interp->dhandler_name) and $comp = \
$interp->find_comp_upwards($path,$interp->dhandler_name)) {


_______________________________________________
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]