From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 24 Jul 2008 06:42:45 +0000 (+0000)
Subject: corrected ugly bug
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=181966b1a37c6c2e39813f70e64483ae971df45e;p=biopieces.git

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 d2d83ad..ee38e28 100644
--- 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;
     }