Changeset 5331

Timestamp:

06/18/09 11:48:10 (3 years ago)

Author:

azawawi

Message:

[tools] release.pl now works on win32. nice! szabgab++

File:

• trunk/tools/release.pl (modified) (2 diffs)

trunk/tools/release.pl

@@ -30 +30 @@
 my $start_dir = Cwd::cwd();
 
-my ($URL) = grep {/^URL:\s*/} qx{LC_ALL=C svn info};
+my @svn_info = ($^O ne 'MSWin32') ? qx{LC_ALL=C svn info} : qx{svn info};
+my ($URL) = grep {/^URL:\s*/} @svn_info;
 die "no url" if not $URL;
 chomp $URL;
@@ -88 +89 @@
 if(-f "Build.PL") {
     $makefile_pl = "Build.PL";
-    $make = "./Build";
+    $make = ($^O ne 'MSWin32') ? "./Build" : "Build.bat";
 }
 _system("$^X $makefile_pl");