[Bioperl-l] SeqFactory diff

[Michal Kurowski]

Hi,

 The patch is required (!) to make it possible to define package 
in the same file where one actually uses Bio::Seq::SeqFactory.

Cheers,


-- 
Michal Kurowski
<mkur at poczta.gazeta.pl>
-------------- next part --------------
--- SeqFactory.pm	Sat Nov  9 21:24:06 2002
+++ /usr/lib/perl5/site_perl/Bio/Seq/SeqFactory.pm	Thu Sep  4 03:43:50 2003
@@ -140,8 +140,8 @@
 sub type{
    my ($self,$value) = @_;
    if( defined $value) {
-       eval "require $value";
-       if( $@ ) { $self->throw("$@: Unrecognized Sequence type for SeqFactory '$value'");}
+#       eval "require $value";
+#       if( $@ ) { $self->throw("$@: Unrecognized Sequence type for SeqFactory '$value'");}
        
        my $a = bless {},$value;
        unless( $a->isa('Bio::PrimarySeqI') ||