| 1 | *** mythconverg_backup.pl 2013-02-16 16:05:10.893001450 -0500
|
|---|
| 2 | --- mythconverg_backup_new.pl 2013-02-16 16:07:18.886459959 -0500
|
|---|
| 3 | ***************
|
|---|
| 4 | *** 1067,1073 ****
|
|---|
| 5 | my $command = shift;
|
|---|
| 6 | my $allow_untaint = 0;
|
|---|
| 7 | # Only allow directories from @d_allowed_paths that exist in the PATH
|
|---|
| 8 | ! if (!defined(@allowed_paths))
|
|---|
| 9 | {
|
|---|
| 10 | foreach my $path (split(/:/, $old_env_path))
|
|---|
| 11 | {
|
|---|
| 12 | --- 1067,1073 ----
|
|---|
| 13 | my $command = shift;
|
|---|
| 14 | my $allow_untaint = 0;
|
|---|
| 15 | # Only allow directories from @d_allowed_paths that exist in the PATH
|
|---|
| 16 | ! unless(@allowed_paths)
|
|---|
| 17 | {
|
|---|
| 18 | foreach my $path (split(/:/, $old_env_path))
|
|---|
| 19 | {
|
|---|
