view release on metacpan or  search on metacpan

lib/CGI/Framework.pm  view on Meta::CPAN

					#
					# This is generated by some braindead web browsers that do not properly terminate an SSL session
					#
					$self->finalize();
					return ();
				}

				#
				# Append stack to error message:
				#
				for ($index = 0 ; @callerparts = caller($index) ; $index++) {
					push(@stack, "$callerparts[1]:$callerparts[2] ($callerparts[3])");
				}
				@stack = reverse @stack;
				$error .= "\n\nStack trace appended by CGI::Framework fatal error handler:\n";
				foreach (0 .. $#stack) {
					$error .= "    " x ($_ + 1);
					$error .= $stack[$_];
					$error .= "\n";
				}