www relayout

[biopieces.git] / code_perl / Maasha / KISS / IO.pm

diff --git a/code_perl/Maasha/KISS/IO.pm b/code_perl/Maasha/KISS/IO.pm
index f64af41f0676a3634eb35616b58b62f7f9be904f..bfcc7babff3a2753e09bd79326b6c1038a7c224f 100644 (file)
--- a/code_perl/Maasha/KISS/IO.pm
+++ b/code_perl/Maasha/KISS/IO.pm
@@ -165,9 +165,9 @@ sub kiss_sort
 
     # Returns nothing.
 
-    `sort -k 2,2n -k 3,3n > $file.sort`;
+    `sort -k 2,2n -k 3,3n $file > $file.sort`;
 
-    rename "$file.sort" $file;
+    rename "$file.sort", $file;
 }