Matthew Astley mcast

## .gitignore
*~
p5-dbd-oracle-*/

## ilsresc-up-the-tree
#!/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

## GitHooksChain.md

      
              2 files
            
          
              0 forks
            
          
              1 comment
            
          
              0 stars
            
          
                mcast
                / GitHooksChain.md
            
            
              Last active
              May 26, 2016 18:10
                — forked from abner/GitHooksChain.md
            
              
                Git Hooks Chain - moving to https://github.com/mcast/git-hookchains
              
          
    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].


## irodsReServer-leak.txt
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

## README.md

      
              3 files
            
          
              0 forks
            
          
              1 comment
            
          
              0 stars
            
          
                mcast
                / README.md
            
            
              Last active
              March 29, 2016 15:02
            
              
                Try::Tiny + qx forks the unit test
              
          
    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.

  
## .gitignore
sendMany
*~

## .gitignore
# emacs
*~

# logs
parrot.log

## read-sleep-stat
#! /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";

## .gitignore
Makefile
blib
pm_to_blib
	#!/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
	#! /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";