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