From 9b9181caa15ce69c66715630167c734016f8654e Mon Sep 17 00:00:00 2001 From: Chris Fields Date: Wed, 30 Jun 2010 18:09:04 -0500 Subject: [PATCH] some tweaks to get rid of warnings --- lib/Bio/Tools/Run/Cap3.pm | 2 +- lib/Bio/Tools/Run/Maq.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Bio/Tools/Run/Cap3.pm b/lib/Bio/Tools/Run/Cap3.pm index da7e64e..d48b59c 100644 --- a/lib/Bio/Tools/Run/Cap3.pm +++ b/lib/Bio/Tools/Run/Cap3.pm @@ -246,7 +246,7 @@ sub _run { my $prefix = $self->output_prefix_string() || 'cap'; my $ace_file = "$fasta_file.$prefix.ace"; my $contigs_file = "$fasta_file.$prefix.contigs"; - my $qual_file = "$fasta_file.$prefix.contigs.links"; + $qual_file = "$fasta_file.$prefix.contigs.links"; my $links_file = "$fasta_file.$prefix.contigs.qual"; my $info_file = "$fasta_file.$prefix.info"; my $singlet_file = "$fasta_file.$prefix.singlets"; diff --git a/lib/Bio/Tools/Run/Maq.pm b/lib/Bio/Tools/Run/Maq.pm index 4e4741b..7b5e9be 100755 --- a/lib/Bio/Tools/Run/Maq.pm +++ b/lib/Bio/Tools/Run/Maq.pm @@ -194,7 +194,7 @@ use strict; our $HAVE_IO_UNCOMPRESS; BEGIN { - eval "require IO::Uncompress::Gunzip; $HAVE_IO_UNCOMPRESS = 1"; + eval {require IO::Uncompress::Gunzip; $HAVE_IO_UNCOMPRESS = 1}; } use IPC::Run; -- 2.11.4.GIT