fixed bug in write_fixedstep

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

diff --git a/bp_bin/calc_fixedstep b/bp_bin/calc_fixedstep
index f39fd20bd17e58b797ededcd4906b2dcd239c071..e98b63a9c8828337f093310573e59a08e7164c86 100755 (executable)
--- a/bp_bin/calc_fixedstep
+++ b/bp_bin/calc_fixedstep
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-# Copyright (C) 2007-2009 Martin A. Hansen.
+# Copyright (C) 2007-2010 Martin A. Hansen.
 
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License

diff --git a/bp_bin/write_fixedstep b/bp_bin/write_fixedstep
index f79873d88259b85b58576c9d07e929d0b6d0b892..a80bf0f810aa7a5af12e34f2c304e8076de22f19 100755 (executable)
--- a/bp_bin/write_fixedstep
+++ b/bp_bin/write_fixedstep
@@ -28,6 +28,7 @@
 
 use warnings;
 use strict;
+use Data::Dumper;
 use Maasha::Biopieces;
 use Maasha::UCSC::Wiggle;
 

diff --git a/code_perl/Maasha/UCSC/Wiggle.pm b/code_perl/Maasha/UCSC/Wiggle.pm
index 374f9f2255b73279a3bae610520e03ce2231fda3..fbd7542df36f5b3527f7c6eb526a0d481d05df5e 100644 (file)
--- a/code_perl/Maasha/UCSC/Wiggle.pm
+++ b/code_perl/Maasha/UCSC/Wiggle.pm
@@ -1,6 +1,6 @@
 package Maasha::UCSC::Wiggle;
 
-# Copyright (C) 2007-2008 Martin A. Hansen.
+# Copyright (C) 2007-2010 Martin A. Hansen.
 
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
@@ -184,7 +184,11 @@ sub biopiece2fixedstep
         }
     }
 
-    return wantarray ? @entry : \@entry;
+    unless ( @entry ) {
+        return
+    } else {
+        return wantarray ? @entry : \@entry;
+    }
 }