t: different input options besides parameters

[barcat.git] / t / regress.t

diff --git a/t/regress.t b/t/regress.t
index c9107486b6fd710461bd851d3522c0e2fc0e310f..a10827b1eac937a35dc1ef02d1d10aab1938e93a 100755 (executable)
--- a/t/regress.t
+++ b/t/regress.t
@@ -43,7 +43,7 @@ for my $candidate (@params) {
        my $shell = $script;
        if ($script =~ /\|/) {
                # explicit shell wrapper to capture all warnings
-               $script =~ s/'/'\\''/g;
+               $shell =~ s/'/'\\''/g;
                $shell = "sh -c '$shell'";
        }
        $shell .= ' 2>' . ($wantwarn ? '&1' : '/dev/null');