diff options
author | Jacob Pipkin <d4wnr4z0r@yahoo.com> | 2012-05-23 18:19:35 -0500 |
---|---|---|
committer | Jacob Pipkin <d4wnr4z0r@yahoo.com> | 2012-05-23 18:19:35 -0500 |
commit | 2df26c9bfeda31f42ea41650f967cb91ec0dca3b (patch) | |
tree | c8d14bd64e08ab2066f6ede49f912e8c55861b41 /sboinstall | |
parent | c0f9ff8ef0306784146733eb6f09012709e6e4df (diff) | |
download | sbotools2-2df26c9bfeda31f42ea41650f967cb91ec0dca3b.tar.xz |
cleanup
Diffstat (limited to 'sboinstall')
-rwxr-xr-x | sboinstall | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -33,21 +33,21 @@ EOF } my %options; -getopts ('hvcdripj:',\%options); +getopts ('hvcdripj:', \%options); -show_usage () and exit(0) if exists $options{h}; -show_version () and exit(0) if exists $options{v}; +show_usage () and exit (0) if exists $options{h}; +show_version () and exit (0) if exists $options{v}; show_usage () and exit (0) unless exists $ARGV[0]; -my @opts1 = ('c','d','r','i','p'); +my @opts1 = ('c', 'd', 'r', 'i', 'p'); for my $opt (@opts1) { - unshift (@ARGV,"-$opt") if exists $options{$opt}; + unshift (@ARGV, "-$opt") if exists $options{$opt}; } my @opts2 = ('j'); for my $opt (@opts2) { - unshift (@ARGV,"-$opt $options{$opt}") if exists $options{$opt}; + unshift (@ARGV, "-$opt $options{$opt}") if exists $options{$opt}; } my $string = ''; |