ports/179489: [patch] math/algotutor

[Javad Kouhi]

>Number:         179489
>Category:       ports
>Synopsis:       [patch] math/algotutor
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Tue Jun 11 13:40:00 UTC 2013
>Closed-Date:
>Last-Modified:
>Originator:     Javad Kouhi
>Release:        9.1-STABLE
>Organization:
>Environment:
FreeBSD minootux 9.1-STABLE FreeBSD 9.1-STABLE #0 r251374: Wed Jun  5 08:17:19 IRDT 2013     root at minootux:/usr/obj/usr/src/sys/GIGABYTE  amd64
>Description:
The perl version is hard coded into files/patch-algotutor. More informations:

http://forums.freebsd.org/showthread.php?t=40209
>How-To-Repeat:
1. Update the ports tree
2. Install math/algotutor
3. Try running the program, the following error message will be shown:

% algotutor
Can't locate utilalgo in @INC (@INC contains: /usr/local/lib/perl5/site_perl/5.8.8/algotutor /usr/local/lib/perl5/5.14.2/BSDPAN /usr/local/lib/perl5/site_perl/5.14.2/mach /usr/local/lib/perl5/site_perl/5.14.2 /usr/local/lib/perl5/5.14.2/mach /usr/local/lib/perl5/5.14.2 . /usr/local/bin/) at /usr/local/bin/algotutor line 28.

>Fix:
Index: Makefile
===================================================================
--- Makefile	(revision 320554)
+++ Makefile	(working copy)
@@ -31,6 +31,7 @@
 post-patch:
 	${REINPLACE_CMD}  -e 's,#!/usr/bin/perl,#!${PERL},' ${WRKSRC}/algotutor
 	${PERL} -pi -e "s'!!PREFIX!!'${PREFIX}'g" ${WRKSRC}/algotutor
+	${REINPLACE_CMD} -e 's,!!PERL_VERSION!!,${PERL_VERSION},' ${WRKSRC}/algotutor
 
 do-install:
 	${MKDIR} ${SITE_PERL}/algotutor
Index: files/patch-algotutor
===================================================================
--- files/patch-algotutor	(revision 320554)
+++ files/patch-algotutor	(working copy)
@@ -5,7 +5,7 @@
  use strict;
  use Getopt::Std;
 -use lib '/usr/share/perl5/algotutor';
-+use lib '!!PREFIX!!/lib/perl5/site_perl/5.8.8/algotutor';
++use lib '!!PREFIX!!/lib/perl5/site_perl/!!PERL_VERSION!!/algotutor';
  
  BEGIN {
      my ($path) = $0 =~ m#(.*/)#;


>Release-Note:
>Audit-Trail:
>Unformatted: