diff multijoin @ 5:20344ce0c811 draft

planemo upload for repository https://github.com/bgruening/galaxytools/tree/master/tools/text_processing/text_processing commit b9d202134c3c6d0e5c398c3ae75e410067fcfc52
author bgruening
date Wed, 23 Nov 2016 15:56:41 -0500
parents 5314e5d6f040
children
line wrap: on
line diff
--- a/multijoin	Fri Mar 18 15:17:27 2016 -0400
+++ b/multijoin	Wed Nov 23 15:56:41 2016 -0500
@@ -5,7 +5,6 @@
 use Data::Dumper;
 use Carp;
 use File::Basename;
-use Sort::Key::Natural qw(natsort);
 
 my $version = "0.1.1";
 my $field_sep = "\t";
@@ -68,7 +67,7 @@
 
 sub print_combined_data()
 {
-	my @keys = natsort keys %data ;
+	my @keys = sort keys %data ;
 
 	foreach my $key ( @keys ) {
 		my @outputs;
@@ -247,7 +246,7 @@
  --filler X     Fill missing values with X.
                 (Default: '$filler').
 
- --labels       When printning output headers with '-h', instead of using the file name,
+ --labels       When printing output headers with '-h', instead of using the file name,
                 use specific labels.
 		Each file name must be followed by a name.