ports/math/algotutor/files/patch-algotutor
2007-04-10 11:04:52 +00:00

20 lines
757 B
Text

--- algotutor.orig Tue Apr 10 18:55:36 2007
+++ algotutor Tue Apr 10 18:56:10 2007
@@ -4,7 +4,7 @@
use strict;
use Getopt::Std;
-use lib '/usr/share/perl5/algotutor';
+use lib '!!PREFIX!!/lib/perl5/site_perl/5.8.8/algotutor';
BEGIN {
my ($path) = $0 =~ m#(.*/)#;
@@ -58,7 +58,7 @@
$tab->{$algo}{run}();
} else {
# algorithms other than dynamic programming
- die "need exactly one data file. Example:\n\talgotutor -a bst /usr/share/algotutor/data/countries.gr\n"
+ die "need exactly one data file. Example:\n\talgotutor -a bst !!PREFIX!!/share/algotutor/data/countries.gr\n"
unless $#ARGV == 0;
$dfn = $ARGV[0];
die "cannot read data file '$dfn'.\nDoes it exist and do you have read permissions?\n" unless -r $dfn;