1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
Author: Andreas Tille <tille@debian.org>
Last-Update: Mon, 10 Dec 2018 07:36:57 +0100
Description: Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at /usr/bin/gff2aplot line 1737.
--- gff2aplot.orig/src/gff2aplot.pl
+++ gff2aplot/src/gff2aplot.pl
@@ -1734,8 +1734,8 @@
|| return $F;
$flag && do {
my @tmpary = ();
- defined( @{ $varec->{$class}{ $$rec[1] } } ) || do {
- @{ $varec->{$class}{ $$rec[1] } } = ();
+ eval {exists $varec->{$class}{ $$rec[1] }} || do {
+ @{ $varec->{$class}{ $$rec[1] } } = ();
};
@tmpary = &find_regexp( $$rec[0] );
$tmpary[3] = lc( $tmpary[3] ) if ( $class eq 'FEATURE' );
@@ -2931,7 +2931,8 @@
( $vrf->{_x_sequence_name}, $vrf->{_y_sequence_name} ) = split /:/o,
$vrf->{alignment_name}, 2;
}
- elsif ( scalar( @{ $Order{ALN} } ) > 0 ) {
+ elsif ( $Order{ALN} &&
+ scalar( @{ $Order{ALN} } ) > 0 ) {
( $vrf->{_x_sequence_name}, $vrf->{_y_sequence_name} ) = split /:/o,
$Order{ALN}[0][0], 2;
}
@@ -3731,7 +3732,11 @@
sub counter { # $_[0]~current_pos++ $_[1]~char
my $str;
- $str = "$_[1]";
+ if ( length scalar(@_) == 1 ) {
+ $str = "";
+ } else {
+ $str = "$_[1]";
+ }
( ( $_[0] % 50 ) == 0 )
&& ( $str .= " [" . &fill_left( $_[0], 6, "0" ) . "]\n" );
&prt_to_stderr($str);
|
