X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/162ad0acd3428d54ef3d5d5628e5df6285aa43f5..863abbbee47daf6df718856079cb50833e3552c2:/modules/Output.pm diff --git a/modules/Output.pm b/modules/Output.pm index 449731f..ba41e38 100644 --- a/modules/Output.pm +++ b/modules/Output.pm @@ -6,7 +6,7 @@ package Output; # HTML generating routines # # Author: Patrick Canterino -# Last modified: 2004-02-06 +# Last modified: 2004-02-23 # use strict; @@ -32,7 +32,7 @@ my $tpl_error; # error_template() # -# Set the path to the template file using for error messages +# Set the path to the template file used for error messages # (I'm lazy...) # # Params: Template file @@ -84,11 +84,12 @@ sub error($;$$) # Print an error message and exit script # ^^^^^ # -# Params: Error message +# Params: 1. Error message +# 2. Hash reference: Template variables (optional) -sub abort($) +sub abort($;$) { - my $output = error(shift); + my $output = error(shift,undef,shift); print $$output; exit; }