DEBSOURCES
Skip Quicknav
sources / liburi-perl / 1.64-1 / t / cwd.t
123456789101112131415
#!perl -Tw use strict; use warnings; use Test; plan tests => 1; use URI::file; $ENV{PATH} = "/bin:/usr/bin"; my $cwd = eval { URI::file->cwd }; ok($@, '');