blob: 75e3b475a13da614b4f1fed5414566f49f988cfa (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- algotutor.orig Wed Jan 19 12:06:33 2005
+++ algotutor Wed Jan 19 12:09:25 2005
@@ -4,7 +4,7 @@
use strict;
use Getopt::Std;
-use lib '/usr/share/perl5/algotutor';
+use lib '!!PREFIX!!/lib/perl5/site_perl/5.8.5/algotutor';
BEGIN {
my ($path) = $0 =~ m#(.*/)#;
@@ -24,7 +24,7 @@
);
getopts('a:s:', \%opts);
-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;
|
