Parent Directory | Revision Log | Patch
revision 1.3 by dpavlin, Sun Nov 2 10:21:45 2003 UTC | revision 1.4 by dpavlin, Sun Nov 2 10:31:44 2003 UTC | |
---|---|---|
# | Line 6 eval '(exit $?0)' && eval 'exec perl -S | Line 6 eval '(exit $?0)' && eval 'exec perl -S |
6 | & eval 'exec perl -S $0 $argv:q' | & eval 'exec perl -S $0 $argv:q' |
7 | if 0; | if 0; |
8 | ||
9 | BEGIN { | |
10 | my $basedir = $0; $basedir =~ s#/[^/]+$##; | |
11 | unshift(@INC, "$basedir/../share"); | |
12 | } | |
13 | ||
14 | use Pg; | use Pg; |
15 | use Getopt::Long; | use Getopt::Long; |
16 | use strict; | use strict; |
17 | use RServ; | |
18 | ||
19 | $| = 1; | $| = 1; |
20 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |