pyrox.dev
1diff -ru Paranoid-2.05/lib/Paranoid.pm /tmp/Paranoid-2.05/lib/Paranoid.pm
2--- Paranoid-2.05/lib/Paranoid.pm 2017-02-06 05:48:57.000000000 -0500
3+++ /tmp/Paranoid-2.05/lib/Paranoid.pm 2018-05-10 06:40:35.286313299 -0400
4@@ -61,7 +61,7 @@
5
6 my $path = shift;
7
8- $path = '/bin:/usr/bin' unless defined $path;
9+ $path = '__BLESSED_PATH__' unless defined $path;
10
11 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
12 $ENV{PATH} = $path;
13Binary files Paranoid-2.05/lib/.Paranoid.pm.swp and /tmp/Paranoid-2.05/lib/.Paranoid.pm.swp differ
14diff -ru Paranoid-2.05/t/01_init_core.t /tmp/Paranoid-2.05/t/01_init_core.t
15--- Paranoid-2.05/t/01_init_core.t 2016-07-12 04:49:33.000000000 -0400
16+++ /tmp/Paranoid-2.05/t/01_init_core.t 2018-05-10 06:43:41.323183381 -0400
17@@ -35,5 +35,5 @@
18 ok( psecureEnv('/bin:/sbin'), 'psecureEnv 1' );
19 is( $ENV{PATH}, '/bin:/sbin', 'Validated PATH' );
20 ok( psecureEnv(), 'psecureEnv 2' );
21-is( $ENV{PATH}, '/bin:/usr/bin', 'Validated PATH' );
22+is( $ENV{PATH}, '__BLESSED_PATH__', 'Validated PATH' );
23