r40150 - in /branches/upstream/libbio-primerdesigner-perl/current: META.yml lib/Bio/PrimerDesigner.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Jul 18 22:09:31 2009
New Revision: 40150

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40150
Log:
[svn-upgrade] Integrating new upstream version, libbio-primerdesigner-perl (0.07)

Modified:
    branches/upstream/libbio-primerdesigner-perl/current/META.yml
    branches/upstream/libbio-primerdesigner-perl/current/lib/Bio/PrimerDesigner.pm

Modified: branches/upstream/libbio-primerdesigner-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbio-primerdesigner-perl/current/META.yml?rev=40150&op=diff
==============================================================================
--- branches/upstream/libbio-primerdesigner-perl/current/META.yml (original)
+++ branches/upstream/libbio-primerdesigner-perl/current/META.yml Sat Jul 18 22:09:31 2009
@@ -1,6 +1,6 @@
 ---
 name: Bio-PrimerDesigner
-version: 0.06
+version: 0.07
 author:
   - 'Sheldon McKay <mckays at cshl.edu>; Ken Youens-Clark <kclark at cshl.edu>'
 abstract: Design PCR primers using primer3 and epcr

Modified: branches/upstream/libbio-primerdesigner-perl/current/lib/Bio/PrimerDesigner.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbio-primerdesigner-perl/current/lib/Bio/PrimerDesigner.pm?rev=40150&op=diff
==============================================================================
--- branches/upstream/libbio-primerdesigner-perl/current/lib/Bio/PrimerDesigner.pm (original)
+++ branches/upstream/libbio-primerdesigner-perl/current/lib/Bio/PrimerDesigner.pm Sat Jul 18 22:09:31 2009
@@ -273,8 +273,10 @@
 
     my $self = shift;
 
+    # technically, this should be 'os_is_not_windows'
     unless ( defined $self->{'os_is_unix'} ) {
-        $self->{'os_is_unix'} = ( $^O =~ /(n[iu]x|darwin)/ ) ? 1 : 0;
+        #$self->{'os_is_unix'} = ( $^O =~ /(n[iu]x|darwin)/ ) ? 1 : 0;
+	$self->{'os_is_unix'} = ( $^O !~ /^MSWin/i ) ? 1 : 0;
     }
 
     return $self->{'os_is_unix'};