[Bio] / FigWebServices / check_variants.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/check_variants.cgi

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

revision 1.4, Sat Oct 6 16:25:40 2007 UTC revision 1.5, Wed Oct 10 18:25:43 2007 UTC
# Line 24  Line 24 
24    
25  use HTML;  use HTML;
26  use strict;  use strict;
27    use Carp;
28    
29  use CGI;  use CGI;
30  my $cgi = new CGI;  my $cgi = new CGI;
# Line 293  Line 294 
294    
295          if (! $got)          if (! $got)
296          {          {
297              print STDERR "failed to parse \'$input\'\nGot to \'$s\'\n";              confess "failed to parse \'$input\'\nGot to \'$s\'";
298          }          }
299      }      }
300      return ($s =~ /^\s*<(\d+)>\s*$/) ? $1 : undef;      return ($s =~ /^\s*<(\d+)>\s*$/) ? $1 : undef;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3