Parent Directory
| 
Revision Log
| 
Patch
| revision 42 by dpavlin, Mon May 10 22:04:01 2004 UTC | revision 43 by dpavlin, Tue May 11 15:36:51 2004 UTC | |
|---|---|---|
| # | Line 3 | Line 3 |
| 3 | # based on post | # based on post |
| 4 | # http://www.mail-archive.com/libwww@perl.org/msg04750.html | # http://www.mail-archive.com/libwww@perl.org/msg04750.html |
| 5 | ||
| 6 | BEGIN { | |
| 7 | my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##; | |
| 8 | unshift(@INC, $basedir); | |
| 9 | } | |
| 10 | ||
| 11 | use strict; | use strict; |
| 12 | use warnings; | use warnings; |
| 13 | use MWS::SWISH; | use MWS::SWISH; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |