Lines Matching refs:PWD
23 my $PWD = $ENV{PWD};
1660 my $output = `ls -l $PWD/$udev_root$rules->{exp_name}`;
1701 if ((-e "$PWD/$udev_root$rules->{exp_name}") ||
1702 (-l "$PWD/$udev_root$rules->{exp_name}")) {
1705 $atime, $mtime, $ctime, $blksize, $blocks) = stat("$PWD/$udev_root$rules->{exp_name}");
1708 if ((-e "$PWD/$udev_root$rules->{not_exp_name}") ||
1709 (-l "$PWD/$udev_root$rules->{not_exp_name}")) {
1742 if ((-e "$PWD/$udev_root$rules->{exp_name}") ||
1743 (-l "$PWD/$udev_root$rules->{exp_name}")) {