extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-05-30 22:45:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Trace system calls when debugging

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-07-02 08:27:17 -07:00
parent afa5ea3fd2
commit 4ea8a65cd9
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2275,11 +2275,16 @@ sub load_kernel_modules( ) {
# Q[uie]t version of system(). Returns true for success # Q[uie]t version of system(). Returns true for success
# #
sub qt( $ ) { sub qt( $ ) {
system( "@_ > /dev/null 2>&1" ) == 0; if ( $debug ) {
print "SYS----> @_\n";
system( "@_ 2>&1" );
} else {
system( "@_ > /dev/null 2>&1" ) == 0;
}
} }
sub qt1( $ ) { sub qt1( $ ) {
1 while system( "@_ > /dev/null 2>&1" ) == 4; 1 while qt( "@_" ) == 4;
$? == 0; $? == 0;
} }