Parent Directory | Revision Log | Patch
revision 51 by dpavlin, Tue May 11 22:59:27 2004 UTC | revision 52 by dpavlin, Tue May 25 18:55:46 2004 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | BEGIN { | BEGIN { |
4 | my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##; | my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$#lib#; |
5 | unshift(@INC, $basedir); | unshift(@INC, $basedir); |
6 | } | } |
7 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |