Changeset 5428 for trunk/Padre-Plugin-NYTProf/lib/Padre/Plugin/NYTProf/ProfilingTask.pm

Timestamp:

06/21/09 03:47:53 (3 years ago)

Author:

waxhead

Message:

Fixed path issue in NYTPROF environment variable for win32 systems for the initial profiling. Fix for generating report still to be done.

File:

• trunk/Padre-Plugin-NYTProf/lib/Padre/Plugin/NYTProf/ProfilingTask.pm (modified) (2 diffs)

trunk/Padre-Plugin-NYTProf/lib/Padre/Plugin/NYTProf/ProfilingTask.pm

@@ -45 +45 @@
     
     my $nytprof_env_vars = "";
+    my $drive = "";
     foreach my $env( keys( %{ $self->{nytprof_envars} }  ) ) {
+        # we can't use the full file path because the colon
+        # in the file path is the same delimiter NYTProf uses
+        # for NYTPROF environment variable.
+        # not the best but:
+        print "env: $env\n";
+        if( ($env eq 'file') && ($^O eq 'MSWin32') ) {
+            print "setting drive for win32\n";
+            $self->{nytprof_envars}->{$env} =~ /(\w\:)(.*$)/;
+            $drive = $1;
+            $self->{nytprof_envars}->{$env} = $2;
+        }
         $nytprof_env_vars .= "$env=" . $self->{nytprof_envars}->{$env} . ":";
     }
@@ -60 +72 @@
     if( $^O eq "MSWin32" ) {
         print "Running on windows\n";
-        $cmd = "set NYTPROF=$nytprof_env_vars && ";
-        
+        $cmd = "$drive && set NYTPROF=$nytprof_env_vars && ";
     }
     elsif( $^O eq "darwin" ) {