Commits

Sarah Richardson committed bf0cccf

Splicer going gold

  • Participants
  • Parent commits 9b05d93

Comments (0)

Files changed (1)

bin/BS_ChromosomeSplicer.pl

   my $e;
   if ($e = Bio::BioStudio::Exception::PreserveExsistingFeature->caught())
   {
-    print "Can't insert $insname; would destroy " . $e->error . "\n";
+    print "Can't insert $insname; " . $e->error . "\n";
+  }
+  elsif ($e = Bio::BioStudio::Exception::PreserveUniqueNames->caught())
+  {
+    print "Can't insert $insname; " . $e->error . "\n";
   }
   elsif ($newfeat)
   {
   my $e1;
   if ($e1 = Bio::BioStudio::Exception::PreserveExsistingFeature->caught())
   {
-    print 'Cannot 5prime flank segment; would destroy ' . $e1->error . "\n";
+    print 'Cannot 5prime flank segment; ' . $e1->error . "\n";
+  }
+  elsif ($e1 = Bio::BioStudio::Exception::PreserveUniqueNames->caught())
+  {
+    print 'Cannot 5prime flank segment; ' . $e1->error . "\n";
   }
 
   my $rbsfeat = $BS_FEATS->{$p{INSERT}}->clone();
   my $e2;
   if ($e2 = Bio::BioStudio::Exception::PreserveExsistingFeature->caught())
   {
-    print 'Cannot 3prime flank segment; would destroy ' . $e2->error . "\n";
+    print 'Cannot 3prime flank segment; ' . $e2->error . "\n";
+  }
+  elsif ($e2 = Bio::BioStudio::Exception::PreserveUniqueNames->caught())
+  {
+    print 'Cannot 3prime flank segment; ' . $e2->error . "\n";
   }
 
   if ($newLfeat && $newRfeat)