Ticket #11408: mythconverg_backup.pl.patch

File mythconverg_backup.pl.patch, 709 bytes (added by mythtv@…, 8 years ago)
Line 
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              {