31 lines
1.3 KiB
Raku
31 lines
1.3 KiB
Raku
$NetBSD$
|
|
|
|
# Portable bash path
|
|
|
|
--- test/test.pl.orig 2019-12-06 16:40:42.000000000 +0000
|
|
+++ test/test.pl
|
|
@@ -1,4 +1,4 @@
|
|
-#!/usr/bin/env perl
|
|
+#!/home/bacon/Pkgsrc/pkg/bin/perl
|
|
#
|
|
# Copyright (C) 2013-2019 Genome Research Ltd.
|
|
#
|
|
@@ -907,7 +907,7 @@ sub test_usage
|
|
my $command = $args{cmd};
|
|
my $commandpath = $$opts{bin}."/".$command;
|
|
my ($ret,$out,$err) = _cmd("$commandpath $args{redirection}");
|
|
- if ( $err =~ m/\/bin\/bash.*no.*such/i ) { failed($opts,msg=>$test,reason=>"could not run $commandpath: $out"); return; }
|
|
+ if ( $err =~ m/bash.*no.*such/i ) { failed($opts,msg=>$test,reason=>"could not run $commandpath: $out"); return; }
|
|
|
|
my @sections = ($err =~ m/(^[A-Za-z]+.*?)(?:(?=^[A-Za-z]+:)|\z)/msg);
|
|
|
|
@@ -965,7 +965,7 @@ sub test_usage_subcommand
|
|
my $commandpath = $$opts{bin}."/".$command;
|
|
my ($ret,$out,$err) = _cmd("$commandpath $subcommand $args{redirection}");
|
|
|
|
- if ( $err =~ m/\/bin\/bash.*no.*such/i ) { failed($opts,msg=>$test,reason=>"could not run $commandpath $subcommand: $out"); return; }
|
|
+ if ( $err =~ m/bash.*no.*such/i ) { failed($opts,msg=>$test,reason=>"could not run $commandpath $subcommand: $out"); return; }
|
|
|
|
if ( $err =~ m/not.*implemented/is ) { failed($opts,msg=>$test,reason=>"subcommand indicates it is not implemented",expect_fail=>1); return; }
|
|
|