bk commit into 4.1 tree (df:1.2690)

From: Daniel Fischer <df(at)mysql.com>
Date: Thu Oct 25 2007 - 07:28:13 EDT

Below is the list of changes that have just been committed into a local 4.1 repository of df. When df does a push these changes will be propagated to the main repository and, within 24 hours after the push, to the public repository.
For information on how to access the public repository see http://dev.mysql.com/doc/mysql/en/installing-source-tree.html

ChangeSet@1.2690, 2007-10-25 13:28:12+02:00, df@pippilotta.erinye.com +1 -0   add new trigger to prevent certain naming clashes

  BitKeeper/triggers/pre-commit.check-case.pl@1.1, 2007-10-25 13:28:09+02:00, df@pippilotta.erinye.com +26 -0     catch duplicate file names, ignoring capitalisation, mostly to avoid changesets where a deleted file foobar and a deleted file FooBar break a tree on case insensitive file systems

  BitKeeper/triggers/pre-commit.check-case.pl@1.0, 2007-10-25 13:28:09+02:00, df@pippilotta.erinye.com +0 -0

diff -Nrup a/BitKeeper/triggers/pre-commit.check-case.pl b/BitKeeper/triggers/pre-commit.check-case.pl

--- /dev/null	Wed Dec 31 16:00:00 196900

+++ b/BitKeeper/triggers/pre-commit.check-case.pl	2007-10-25 13:28:09 +02:00

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+my $status = 0;
+
+my $pending = $ENV{'BK_PENDING'};
+exit 0 unless -f $pending;
+
+open FI, "<", $pending || exit 0;
+while(<FI>) {
+ my ($file, $stuff) = split /\|/, $_, 2;
+ next unless -f $file;
+ $file =~ s/^(.*)\/([^\/]*)$/$2/;
+ my $path = $1;
+ opendir DIR, $path;
+ my @files = sort map { lc } readdir DIR;
+ closedir DIR;
+ my %count = ();
+ $count{$_}++ for @files;
+ @files = grep { $count{$_} > 1 } keys %count;
+ if(@files > 0) {
+ print "$path/$file: duplicate file names: " . (join " ", @files) . "\n";
+ $status = 1;
+ }
+}
+close FI;
+
+exit $status;

-- 
MySQL Code Commits Mailing List
For list archives: 
http://lists.mysql.com/commits
To unsubscribe:    
http://lists.mysql.com/commits?unsub=lists@pantek.com

Received on Thu Oct 25 07:31:12 2007