X-Git-Url: https://git.distorted.org.uk/~mdw/odin-cgi/blobdiff_plain/2342da6641128448ea3d79b3da589bde9327ade1..3badae73c1e4ed7cfb05ca0a5d7b4f06882f80e3:/mason/pastebin/%show

diff --git a/mason/pastebin/%show b/mason/pastebin/%show
index d8573b5..3a8edb3 100644
--- a/mason/pastebin/%show
+++ b/mason/pastebin/%show
@@ -82,6 +82,7 @@
 %#
 <%once>
 	use utf8;
+	use POSIX qw(_exit);
 
 	sub filter ($$$@) {
 	  my ($what, $m, $content, @cmd) = @_;
@@ -90,7 +91,7 @@
 	    open my $hl, "|-", @cmd or die "open $what: $!";
 	    syswrite $hl, $content // die "$what write: $!";
 	    close $hl or die "$what kid: $!, $?";
-	    exit 0;
+	    _exit 0;
 	  } else {
 	    while (sysread $fh, my $buf, 8192) { $m->print($buf); }
 	    close $fh and waitpid $kid, 0