Index: trunk/install/perl/folprep.pl
===================================================================
--- trunk/install/perl/folprep.pl (リビジョン 1)
+++ trunk/install/perl/folprep.pl (リビジョン 94)
@@ -23,5 +23,5 @@
 $path = $0;
 $path =~ s/folprep.pl$//i;
-if ($pwd  ne "./"){
+if ($path ne "./"){
 push( @INC, "$path");
 }