summaryrefslogtreecommitdiff
path: root/academic/perlprimer/02_fix-defined-slist.patch
blob: 38b375c844e5f24503e894d822d0dda328b38144 (plain)
1
2
3
4
5
6
7
8
9
10
11
--- orig/perlprimer.pl	2016-11-22 21:06:25.135978000 +0200
+++ new/perlprimer.pl	2016-11-22 21:08:09.001971413 +0200
@@ -5226,7 +5226,7 @@ sub generate_report {
 	}
 	
 	my ($hlist_sel) = $$hlist_ref->selectionGet;
-	unless (defined(@$slist) && defined($hlist_sel)) {
+	unless (@$slist && defined($hlist_sel)) {
 		dialogue("The Generate Report function saves the statistics and alignment of a particular primer pair - please select a primer pair first");
 		return;
 	}