From e5f4d09b4ad5f22a3d9435036e90979dc75ca9fa Mon Sep 17 00:00:00 2001
From: pontus_pih <pontus_pih>
Date: Tue, 6 May 2008 11:30:28 +0000
Subject: [PATCH] added version option

---
 bin/setup.pl          | 5 +++--
 lib/common_options.pm | 6 ++++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/bin/setup.pl b/bin/setup.pl
index ac3b3cd..b61fe25 100644
--- a/bin/setup.pl
+++ b/bin/setup.pl
@@ -3,11 +3,11 @@ use Config;
 use CPAN;
 use File::Spec;
 
-my $version = '2.2.5_rc5';
+my $version = '2.2.5_rc6';
 
 my $name_safe_version = $version;
 $name_safe_version =~ s/\./_/g;
-my @utilities = ('bootstrap', 'cdd', 'execute', 'llp', 'scm', 'sumo', 'mcs', 'mc_cdd',
+my @utilities = ('bootstrap', 'cdd', 'execute', 'llp', 'scm', 'sumo', 'sse', 'mc_cdd',
                 'data_stats', 'create_extra_data_model', 'single_valued_columns',
                 'gam42toconf', 'create_cont_model', 'create_cont_data', 'unwrap_data', 'create_subsets',
                 'check_termination','se_of_eta','update_inits','npc','vpc' );
@@ -202,6 +202,7 @@ print( PSN "package PsN;\n" );
 print( PSN "use lib '$library_dir/PsN_$name_safe_version';\n" );
 print( PSN "\$lib_dir = '$library_dir/PsN_$name_safe_version';\n" );
 print( PSN "\$config_file = '$library_dir/PsN_$name_safe_version/psn.conf';\n" );
+print( PSN "\$version = '$version';\n";
 
 for ( <TEMPLATE> ) {
  print PSN $_;
diff --git a/lib/common_options.pm b/lib/common_options.pm
index b2e1902..0ad757a 100644
--- a/lib/common_options.pm
+++ b/lib/common_options.pm
@@ -59,6 +59,7 @@ my @tool_options = ( "abort_on_fail",
 		     "ud_native_retrieve",
 		     "ud_sleep:i",
 		     "verbose!",
+		     "version",
 		     "wrap_data",
 		     "unwrap_table_files",
 		     "near_bound_sign_digits:i",
@@ -815,6 +816,11 @@ EOF
     %help_hash = %{$help_text};
   }
 
+  if( $options{'version'} ){
+    print "PsN version: $PsN::version\n";
+    exit;
+  }
+
   my $help;
 
   if($options{'h'} or $options{'?'} or $options{'help'} ) {
-- 
2.11.4.GIT