This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to branch master in repository pkg-perl-tools.
commit b3b8d3fdd8a5f7bc6037704d1fa1e51de3c5cce6 Author: gregor herrmann <[email protected]> Date: Sat Jun 17 20:07:36 2017 +0200 t/patchedit/01_patchedit.t: fix path and add some error handling. --- t/patchedit/01_patchedit.t | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/t/patchedit/01_patchedit.t b/t/patchedit/01_patchedit.t index 9f09e38..46444d4 100644 --- a/t/patchedit/01_patchedit.t +++ b/t/patchedit/01_patchedit.t @@ -13,7 +13,12 @@ use File::Copy 'copy'; use FindBin qw($Bin); use lib "$Bin/lib"; -do $Bin.'/../../patchedit'; +my $script = $Bin.'/../../bin/patchedit'; +unless ( my $return = do $script ) { + warn "couldn't parse $script: $@" if $@; + warn "couldn't do $script: $!" unless defined $return; + warn "couldn't run $script" unless $return; +} exit maint(); @@ -34,7 +39,7 @@ sub maint { local $ENV{'EDITOR'} = '/bin/true'; foreach my $type (@tests) { foreach my $sub_type ('', '-o') { - copy("t/patchedit/$type.orig", 't/patchedit/'.$type); + copy("t/patchedit/$type.orig", 't/patchedit/'.$type) or die "Copy failed: $!"; local @ARGV = (($sub_type ? $sub_type : ()), '-f', 'edit', 't/patchedit/'.$type); main(); my $fixed = read_file('t/patchedit/'.$type); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
