Lines Matching refs:dir
5 $dir = "self-$$";9 $dir = ":" . $dir;13 @INC = $dir;19 mkdir $dir, 0755 or die "Can't mkdir $dir: $!";21 open(FOO, ">$dir${sep}Foo.pm") or die;50 open(BAR, ">$dir${sep}Bar.pm") or die;205 return unless $dir && -d $dir;206 unlink "$dir${sep}Foo.pm", "$dir${sep}Bar.pm";207 rmdir "$dir";