[Bio] / FigKernelPackages / raelib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raelib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9, Sun Apr 3 19:25:21 2005 UTC revision 1.11, Fri Apr 8 20:22:23 2005 UTC
# Line 86  Line 86 
86    
87  sub pirsfcorrespondence {  sub pirsfcorrespondence {
88   my ($self, $from, $to, $verbose)=@_;   my ($self, $from, $to, $verbose)=@_;
89   die "File $from does not exist as called in $0" unless (-e $from);   unless (-e $from) {
90      print STDERR "File $from does not exist as called in $0\n";
91      return 0;
92     }
93   open (IN, $from) || die "Can't open $from";   open (IN, $from) || die "Can't open $from";
94   open (OUT, ">$to") || die "Can't write to $to";   open (OUT, ">$to") || die "Can't write to $to";
95   my $linecount;   my $linecount;
# Line 184  Line 187 
187   my @return;   my @return;
188   my @attr=$fig->feature_attributes($peg);   my @attr=$fig->feature_attributes($peg);
189   foreach my $attr (@attr) {   foreach my $attr (@attr) {
190    my ($gottag, $val, $link)=@$attr;    my ($gotpeg, $gottag, $val, $link)=@$attr;
191    push @return, $val if ($gottag eq $tag);    push @return, $val if ($gottag eq $tag);
192   }   }
193   return wantarray ? @return : join "; ", @return;   return wantarray ? @return : join "; ", @return;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3