holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Correct fatal error message generated by assert()

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@9675 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2009-03-09 21:45:30 +00:00
parent ce5efc5dfa
commit 77444634e1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Shorewall/Perl/Shorewall/Config.pm
View File

@ -708,9 +708,10 @@ sub fatal_error1 {
# #
sub assert( $ ) { sub assert( $ ) {
unless ( $_[0] ) { unless ( $_[0] ) {
my @caller = caller 1; my @caller0 = caller 0; # Where assert() was called
my @caller1 = caller 1; # Who called assert()
fatal_error "Internal error in $caller[0]::$caller[3]"; fatal_error "Internal error in $caller1[3] at $caller0[1] line $caller0[2]";
} }
} }