22 lines
766 B
Plaintext
22 lines
766 B
Plaintext
$OpenBSD: patch-algotutor,v 1.2 2005/04/13 01:27:42 kevlo Exp $
|
|
--- algotutor.orig Tue Apr 12 13:35:39 2005
|
|
+++ algotutor Wed Apr 13 09:23:13 2005
|
|
@@ -4,7 +4,7 @@
|
|
|
|
use strict;
|
|
use Getopt::Std;
|
|
-use lib '/usr/share/perl5/algotutor';
|
|
+use lib '%%P5INST%%/algotutor';
|
|
|
|
BEGIN {
|
|
my ($path) = $0 =~ m#(.*/)#;
|
|
@@ -33,7 +33,7 @@ if (grep { $opts{a} eq $_ } qw(lcs matc)
|
|
dynprog($opts{a});
|
|
}
|
|
|
|
-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 /usr/local/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;
|