[svn:p5ee] r12565 - p5ee/trunk/App-Options/lib/App

[spadkins]

Author: spadkins
Date: Tue Mar  3 09:44:18 2009
New Revision: 12565

Modified:
   p5ee/trunk/App-Options/lib/App/Options.pm

Log:
Added perl restart dependecies based on ENV vars

Modified: p5ee/trunk/App-Options/lib/App/Options.pm
==============================================================================
--- p5ee/trunk/App-Options/lib/App/Options.pm   (original)
+++ p5ee/trunk/App-Options/lib/App/Options.pm   Tue Mar  3 09:44:18 2009
@@ -1108,6 +1108,15 @@
                     $var = $1;
                     $value = $2;
 
+                    if ($var eq "perl_restart" && $value && $value ne "1") {
+                        foreach my $env_var (split(/,/,$value)) {
+                            if (!$ENV{$env_var}) {
+                                $value = 1;
+                                last;
+                            }
+                        }
+                    }
+
                     # "here documents": var = <<EOF ... EOF
                     if ($value =~ /^<<(.*)/) {
                         $heredoc_end = $1;