Skip to content

Commit

Permalink
Cut some comments and old code checking for SunOS
Browse files Browse the repository at this point in the history
  • Loading branch information
jeanconn committed Jul 15, 2020
1 parent fca803c commit 35b7699
Showing 1 changed file with 0 additions and 12 deletions.
12 changes: 0 additions & 12 deletions starcheck/src/starcheck.pl
Original file line number Diff line number Diff line change
Expand Up @@ -23,10 +23,6 @@

use PoorTextFormat;

#use lib '/proj/axaf/simul/lib/perl';
#use GrabEnv qw( grabenv );
#use Shell::GetEnv;

use Ska::Starcheck::Obsid;
use Ska::Parse_CM_File;
use Carp;
Expand Down Expand Up @@ -62,10 +58,6 @@

my $version = starcheck_version();

# cheat to get the OS (major)
my $OS = `uname`;
chomp($OS);


# Set some global vars with directory locations
my $SKA = $ENV{SKA} || '/proj/sot/ska';
Expand Down Expand Up @@ -245,10 +237,6 @@
my ($fid_time_violation, $error, $fidsel) = Ska::Parse_CM_File::fidsel($fidsel_file, \@bs) ;
map { warning("$_\n") } @{$error};

## Warn if we are on Solaris
if ($OS eq 'SunOS'){
warning("uname == SunOS; starcheck is only approved on Linux \n");
}

# Now that global_warn exists, if the DOT wasn't made/modified by SAUSAGE
# throw an error
Expand Down

0 comments on commit 35b7699

Please sign in to comment.