From fc7a39766fc4f98c872ba9dd1ee654fb750d60e1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Tue, 13 Mar 2007 14:51:27 +0000
Subject: [PATCH] Get rid of more warnings.
---
.../xref_mapping/XrefMapper/BasicMapper.pm | 24 +++++++++----------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
index 2d41e7fe17..53fc265feb 100644
--- a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
+++ b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
@@ -1217,20 +1217,20 @@ sub parse_mappings {
if($self->jobcount() != $total_files){
- print $dna_check[-1]." dna map files\n";
- print $pep_check[-1]." peptide map files\n";
+ print( ( $dna_check[-1] || 0 ) . " dna map files\n" );
+ print( ( $pep_check[-1] || 0 ) . " peptide map files\n" );
my $test_failed = 0;
- for(my $i=1; $i < $dna_check[-1]; $i++){
- if($dna_check[$i] != $i){
- print "DNA $i file not found\n";
- $test_failed = 1;
- }
+ for ( my $i = 1 ; $i < ( $dna_check[-1] || 0 ) ; $i++ ) {
+ if ( $dna_check[$i] != $i ) {
+ print "DNA $i file not found\n";
+ $test_failed = 1;
+ }
}
- for(my $i=1; $i < $pep_check[-1]; $i++){
- if($pep_check[$i] != $i){
- print "PEPTIDE $i file not found\n";
- $test_failed = 1;
- }
+ for ( my $i = 1 ; $i < ( $pep_check[-1] || 0 ) ; $i++ ) {
+ if ( $pep_check[$i] != $i ) {
+ print "PEPTIDE $i file not found\n";
+ $test_failed = 1;
+ }
}
if($test_failed){
die "Missing Files aborting run\n";
--
GitLab