opensource/galaxy
3
0
Fork 0
mirror of https://github.com/galaxyproject/galaxy.git synced 2026-09-15 03:01:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

fix wrong path in error message

Browse Source
This commit is contained in:
Anthony Bretaudeau
2018-05-24 09:38:03 +02:00
parent d80a86b9e7
commit 7680181864
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/filters/cutWrapper.pl
+4 -5
View File
@@ -28,7 +28,7 @@ foreach ( split /,/, $ARGV[1] ) {
$start =~ s/c//ig;
$end =~ s/c//ig;
for $i ($start .. $end) {
push (@columns, $i);
push (@columns, $i);
}
}
}
@@ -47,7 +47,7 @@ my $column_delimiters_href = {
$del = $column_delimiters_href->{$ARGV[2]};
open (OUT, ">$ARGV[3]") or die "Cannot create $ARGV[2]:$!\n";
open (OUT, ">$ARGV[3]") or die "Cannot create $ARGV[3]:$!\n";
open (IN, "<$ARGV[0]") or die "Cannot open $ARGV[0]:$!\n";
while (my $line=<IN>) {
@@ -62,7 +62,7 @@ while (my $line=<IN>) {
} else {
push(@out, ".");
}
}
}
print OUT join("\t",@out), "\n";
@out = ();
}
@@ -70,7 +70,7 @@ while (my $line=<IN>) {
#while (<IN>) {
# chop;
# @in = split /$del/;
# @in = split /$del/;
# foreach $field (@columns) {
# if (defined($in[$field-1])) {
# push(@out, $in[$field-1]);
@@ -84,4 +84,3 @@ while (my $line=<IN>) {
close IN;
close OUT;