Community technical support mailing list was retired 2010 and replaced with a professional technical support team. For assistance please contact: Pre-sales Technical support via email to sales@march-hare.com.
mike.porter at bt.com wrote: > I'm trying to implement the pre-commit checking from commitinfo using the > STDIN to determine the list of filenames as suggested (thanks). Im still > having problems however. > > My commitinfo is calling the following perl script which undefs the eol CRLF > and then prints the STDIN. What I find is that the STDIN is empty (see > commit trace below below). Ive also tried 'while' looping around the STDIN > but again don't see anything on the STDIN. > The code I use is: # parse command line arguments # while (@ARGV) { $arg = shift @ARGV; if ($arg eq '-d') { $debug = 1; print STDERR "Debug turned on...\n"; } elsif ... <argument processing stuff> } else { push(@files, $arg); } } $directory = shift @files; # Module/directory is first arg # For new-style commitinfo, read stdin for list of files while (<STDIN>) { chop; # Drop the newline push(@files, $_); } This works OK for me... I've tried to make it backward compatible (so it parses the files off both the command line and the standard input)... not that I've ever tried it on an older version :) Tony