theory at bricolage
Apr 29, 2008, 7:21 PM
Post #1 of 1
(82 views)
Permalink
|
Revision: 8205
Author: theory
Date: 2008-04-29 19:21:39 -0700 (Tue, 29 Apr 2008)
ViewCVS: http://viewsvn.bricolage.cc/?rev=8205&view=rev
Log Message:
-----------
Unbroke this.
Modified Paths:
--------------
bricolage/trunk/inst/dist_sql.pl
Modified: bricolage/trunk/inst/dist_sql.pl
===================================================================
--- bricolage/trunk/inst/dist_sql.pl 2008-04-30 02:11:31 UTC (rev 8204)
+++ bricolage/trunk/inst/dist_sql.pl 2008-04-30 02:21:39 UTC (rev 8205)
@@ -22,13 +22,14 @@
use strict;
-my @rdbmss = map { s/^sql//; $_ } grep { $_ !~ /[.]svn/ } @ARGV;
+my @rdbmss = map { s{^sql/}{}; $_ } grep { $_ !~ /[.]svn/ } @ARGV;
for my $rdbms (@rdbmss) {
for my $type qw(sql val con) {
+ my $dir = $type eq 'sql' ? '>' : '>>';
system (
"grep -vh '^--' `find sql/$rdbms -name '*.$type' | env "
- . "LANG= LANGUAGE= LC_ALL=POSIX sort` > inst/$rdbms.sql"
+ . "LANG= LANGUAGE= LC_ALL=POSIX sort` $dir inst/$rdbms.sql"
) and die "Errror concatenating *.$type files in sql/$rdbms into inst/$rdbms.sql";
}
}
|
