Matthew Astley mcast

Instructions

Add the hook-chain script to the repository hooks
Create a link symbolic to hook-chain with the name of the hook which will be chained

Eg: post-receive -> hook-chain

Add scripts prefixed with the [hookname].

Report

I was surprised to find my unit test had forked, and so was producing multiple copies of ok messages. I managed to reduce this to, I think, the combination of

Try::Tiny
use warnings FATAL => 'all'
Running a command which doesn't exist

I suspect that the warning of "command not found" is promoted to an error, which is then rescued by try, and this cuts out some tidying up. This is affecting Perl's fork in system and qx.

	#!/bin/sh

	### Copying: under GPLv3, or other by arrangement with my employer
	### Local source: https://gitlab.internal.sanger.ac.uk/CancerIT/cgpDataOut/blob/master/bin/ilsresc-up-the-tree

	# This is an ugly bodge,
	# it just does what I need
	# (iRODS 4.1.12.beta)
	#
	# i-cgpdev bin/ilsresc-up-the-tree

	date time pid cmd vsize vgrow
	RESET
	2016/04/13 06:26:14 18401 (irodsReServer) 11748836 11748836
	2016/04/13 06:36:14 18401 (irodsReServer) 11748836 0
	2016/04/13 06:46:14 18401 (irodsReServer) 11748836 0
	2016/04/13 06:56:14 18401 (irodsReServer) 11748836 0
	2016/04/13 07:06:14 18401 (irodsReServer) 11748836 0
	2016/04/13 07:16:14 18401 (irodsReServer) 11748836 0
	2016/04/13 07:26:14 18401 (irodsReServer) 11748836 0
	2016/04/13 07:36:14 18401 (irodsReServer) 11748836 0

	# emacs
	*~

	# logs
	parrot.log

	#! /usr/bin/perl
	use strict;
	use warnings;

	my ($fn, $sleep) = @ARGV;
	my $top = do { local $/ = \"65536"; my $fh = o($fn); <$fh> };
	printf "Read %d bytes from %s\n", length($top), $fn;
	sleep $sleep;
	my @s = stat( o($fn) );
	print "Stat $fn = (@s)\n";

	*~
	p5-dbd-oracle-*/

	sendMany
	*~

	Makefile
	blib
	pm_to_blib