Author: paultcochrane
Date: Wed Apr 11 14:02:33 2007
New Revision: 18146
Modified:
trunk/tools/dev/mk_manifest_and_skip.pl
trunk/tools/dev/ops_not_tested.pl
Log:
[tools] Tidied code with perltidy
Modified: trunk/tools/dev/mk_manifest_and_skip.pl
==============================================================================
--- trunk/tools/dev/mk_manifest_and_skip.pl (original)
+++ trunk/tools/dev/mk_manifest_and_skip.pl Wed Apr 11 14:02:33 2007
@@ -137,7 +137,7 @@
print $MANIFEST $_ for ( sort @MANIFEST_LINES );
my $svnignore = `$cmd propget svn:ignore @dirs`;
-$svnignore =~ s/\n{3,}/\n\n/; # cope with trailing newlines in svn:ignore
output
+$svnignore =~ s/\n{3,}/\n\n/; # cope with trailing newlines in svn:ignore
output
my %ignore;
my @ignore = split( /\n\n/, $svnignore );
foreach (@ignore) {
Modified: trunk/tools/dev/ops_not_tested.pl
==============================================================================
--- trunk/tools/dev/ops_not_tested.pl (original)
+++ trunk/tools/dev/ops_not_tested.pl Wed Apr 11 14:02:33 2007
@@ -33,7 +33,7 @@
my @dirs = @ARGV ? @ARGV : 't/';
my $make = $PConfig{make};
-my $disassemble = $PConfig{build_dir} . $PConfig {slash} .'disassemble' .
$PConfig{exe};
+my $disassemble = $PConfig{build_dir} . $PConfig{slash} . 'disassemble' .
$PConfig{exe};
# First of all we need the disassemble program
system( $make, $disassemble ) == 0
