#2 Patch to look for gcg.* files in other directories.

[Charles Plessy]

Dear Owen,

PerlPrimer in Debian is installed in /usr/bin. As a consequence, it would look there for the REBASE list of restriction enzyme cutting sites. We apply the following patch to make PerlPrimer look in /usr/share/perlprimer, where we install the file, as well as in the directory from wihch perlprimer is invoked. (The patch also fixes the adress of the FSF in the licence header).

Do you think that you could integrate this patch or part of it in your next release ?

Have a nice day,

-- Charles Plessy, Debian-Med packaging team.

--- perlprimer/perlprimer.pl 2006-11-19 22:20:44.000000000 +0900
+++ perlprimer/perlprimer.pl.debian 2006-11-19 22:20:28.000000000 +0900
@@ -18,7 +18,7 @@
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
# USA

use strict;
@@ -3840,7 +3840,15 @@
# search for the file in the program directory
@gcg_paths = glob("$program_directory"."gcg.*");
}
-
+ unless (@gcg_paths) {
+ # search for the file where it should be
+ @gcg_paths = glob("/usr/share/perlprimer/"."gcg.*");
+ }
+ unless (@gcg_paths) {
+ # search for the file in the current directory
+ @gcg_paths = glob("./"."gcg.*");
+ }
+
my $gcg_path;
foreach (@gcg_paths) {
if (/.*gcg\.\d*$/) {