← Back to branch summary

~ubuntu-branches/ubuntu/saucy/bioperl/saucy-proposed

« back to all changes in this revision

Viewing changes to Bio/DB/GFF/Typename.pm

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2009-03-10 07:19:11 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090310071911-fukqzw54pyb1f0bd
Tags: 1.6.0-2
https://launchpad.net/bugs/324001
* Removed patch system (not used):
  - removed instuctions in debian/rules;
  - removed quilt from Build-Depends in debian/control.
* Re-enabled tests:
  - uncommented test command in debian/rules;
  - uncommented previously missing build-dependencies in debian/control.
  - Re-enabled tests and uncommented build-dependencies accordingly.
* Removed libmodule-build-perl and libtest-harness-perl from
  Build-Depends-Indep (provided by perl-modules).
* Better cleaning of empty directories using find -type d -empty -delete
  instead of rmdir in debian/rules (LP: #324001).

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/DB/GFF/Typename.pm
52
52
  my ($method,$source) = @_;
53
53
  $method ||= '';
54
54
  $source ||= '';
55
 
  if ($source eq '' && $method =~ /^(\w+):(\w+)$/) {
 
55
  if ($source eq '' && $method =~ /^([\w-]+):([\w-]*)$/) {
56
56
    $method = $1;
57
57
    $source = $2;
58
58
  }
150
150
  my $self   = shift;
151
151
  my $target = shift;
152
152
  my ($method,$source);
 
153
 
153
154
  if (UNIVERSAL::isa($target,'Bio::DB::GFF::Typename')) {
154
155
    ($method,$source) = ($target->method,$target->source);
155
156
  } else {
156
157
    ($method,$source) = split /:/,$target;
157
158
  }
158
159
 
 
160
  $source ||= ''; # quash uninit variable warnings
 
161
 
159
162
  return if $method ne '' && $self->method ne '' && $method ne $self->method;
160
163
  return if $source ne '' && $self->source ne '' && $source ne $self->source;
161
164
  1;