extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-15 04:04:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Remove eval stuff from compiler.pl

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6533 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-06-13 13:28:15 +00:00
parent 7e19a3f2a4
commit 8ef47a15af
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Shorewall-perl/compiler.pl
View File

@ -25,6 +25,7 @@
#
use strict;
use lib '/usr/share/shorewall-perl';
use Shorewall::Compiler;
use Getopt::Long;
sub usage() {
@ -53,20 +54,9 @@ my $result = GetOptions('export' => \$export,
usage unless $result && @ARGV < 2;
eval {
use Shorewall::Compiler;
my $options = 0;
my $options = 0;
$options |= EXPORT if $export;
$options |= TIMESTAMP if $timestamp;
$options |= EXPORT if $export;
$options |= TIMESTAMP if $timestamp;
compiler $ARGV[0], $shorewall_dir, $verbose, $options;
};
my $foo = EXPORT;
if ( $@ ) {
print STDERR $@;
exit 1;
}
compiler $ARGV[0], $shorewall_dir, $verbose, $options;