corrected ugly bug

git-svn-id: http://biopieces.googlecode.com/svn/trunk@190 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm
index d2d83ad322da5be26891c1adbcb5e212afc013f7..ee38e282d4392a56f181713480cfe66b59d40576 100644 (file)
--- a/code_perl/Maasha/Biopieces.pm
+++ b/code_perl/Maasha/Biopieces.pm
@@ -939,7 +939,7 @@ sub get_options
 
 #    print STDERR Dumper( \%options );
 
-    if ( -t STDIN && scalar( keys %options ) == 1 or $options{ "help" } ) {
+    if ( -t STDIN && scalar( keys %options ) == 0 or $options{ "help" } ) {
         return wantarray ? %options : \%options;
     }