extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-02-02 10:59:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

Change indentation in Carp-generated messages

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6663 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-23 22:47:52 +00:00
parent 051cb61050
commit 04b07b605a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Shorewall-perl/Shorewall/Config.pm
View File

@ -325,7 +325,7 @@ sub warning_message
my $lineinfo = $currentfile ? " : $currentfilename (line $currentlinenumber)" : ''; my $lineinfo = $currentfile ? " : $currentfilename (line $currentlinenumber)" : '';
if ( $debug ) { if ( $debug ) {
print STDERR Carp::longmess( "WARNING: @_$lineinfo" ); print STDERR Carp::longmess( " WARNING: @_$lineinfo" );
} else { } else {
print STDERR " WARNING: @_$lineinfo\n"; print STDERR " WARNING: @_$lineinfo\n";
} }
@ -336,9 +336,8 @@ sub warning_message
# #
sub fatal_error { sub fatal_error {
my $lineinfo = $currentfile ? " : $currentfilename (line $currentlinenumber)" : ''; my $lineinfo = $currentfile ? " : $currentfilename (line $currentlinenumber)" : '';
Carp::confess "ERROR: @_$lineinfo" if $debug; Carp::confess " ERROR: @_$lineinfo" if $debug;
die " ERROR: @_$lineinfo\n"; die " ERROR: @_$lineinfo\n";
} }
# #