Merge pull request #4 from cancerit/dev

Fix padding
cancerit · Nov 24, 2014 · ba38b72 · ba38b72
2 parents c45b9f0 + abfa166
commit ba38b72
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/perl/lib/Sanger/CGP/Brass/Implement.pm b/perl/lib/Sanger/CGP/Brass/Implement.pm
@@ -206,13 +206,13 @@ sub assemble {
 
     my $split_dir = File::Spec->catdir($tmp, 'split');
     my $split_file = File::Spec->catfile($split_dir, 'split.');
-    $split_file .= sprintf '%03d', $index-1;
+    $split_file .= sprintf '%06d', $index-1;
 
     my $tmp_assemble = File::Spec->catdir($tmp, 'assemble');
     make_path($tmp_assemble) unless(-e $tmp_assemble);
 
     my $assembled = File::Spec->catfile($tmp_assemble, 'bedpe.');
-    $assembled .= sprintf '%03d', $index-1;
+    $assembled .= sprintf '%06d', $index-1;
 
     my $command = "$^X ";
     $command .= _which('brass-assemble');