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