|
From: Chris W. <la...@us...> - 2005-10-22 21:53:53
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Response In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21226/Response Modified Files: CGI.pm Log Message: remove old (?) reference to OI2::Exception->creation_location Index: CGI.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Response/CGI.pm,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** CGI.pm 17 Mar 2005 14:58:05 -0000 1.20 --- CGI.pm 22 Oct 2005 21:53:45 -0000 1.21 *************** *** 32,38 **** } elsif ( UNIVERSAL::isa( $_, 'OpenInteract2::Exception' ) ) { print "<h1>Exception!</h1>\n", "<p>Error: ", $_->message, "<br>", ! $_->creation_location, "</p>\n"; } else { --- 32,39 ---- } elsif ( UNIVERSAL::isa( $_, 'OpenInteract2::Exception' ) ) { + my $location = $_->file . " line " . $_->line; print "<h1>Exception!</h1>\n", "<p>Error: ", $_->message, "<br>", ! "$location</p>\n"; } else { |