From 181966b1a37c6c2e39813f70e64483ae971df45e Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 24 Jul 2008 06:42:45 +0000
Subject: [PATCH] corrected ugly bug

git-svn-id: http://biopieces.googlecode.com/svn/trunk@190 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Biopieces.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
     }
 
-- 
2.39.5