[svk-commit] r2508 - trunk/pkg

[nobody at bestpractical.com]

Author: clsung
Date: Wed Jul 18 11:45:46 2007
New Revision: 2508

Modified:
   trunk/pkg/buildsvk.pl

Log:
- on Win32, suffering from parameter list too long problem.
  - so use -A to read from files (test scripts)

Modified: trunk/pkg/buildsvk.pl
==============================================================================
--- trunk/pkg/buildsvk.pl	(original)
+++ trunk/pkg/buildsvk.pl	Wed Jul 18 11:45:46 2007
@@ -318,6 +318,9 @@
     my $self = shift;
     my $toplevel = shift;
     my @paroptions;
+    open my $tmpfh, '>test_files.txt' or die $!;
+    print $tmpfh map { "$toplevel/$_;site/$_\n" } $self->test_files($toplevel);
+    close $tmpfh;
     open my $fh, 'win32/paroptions.txt' or die $!;
     while (<$fh>) { next if m/^#/; chomp; push @paroptions, split(/ /,$_) };
     push @paroptions,
@@ -342,7 +345,8 @@
          -a => "$toplevel/CHANGES;CHANGES",
          -a => "$toplevel/ARTISTIC;ARTISTIC",
          -a => "$toplevel/COPYING;COPYING",
-         map { -a => "$toplevel/$_;site/$_" } $self->test_files($toplevel);
+	 -A => "test_files.txt";
+#         map { -a => "$toplevel/$_;site/$_" } $self->test_files($toplevel);