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 {
|
