Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / t / sample-tests / out_err_mix

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/out_err_mix b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/out_err_mix
new file mode 100644 (file)
index 0000000..c802eb4
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/out_err_mix
@@ -0,0 +1,13 @@
+sub _autoflush {
+    my $flushed = shift;
+    my $old_fh  = select $flushed;
+    $| = 1;
+    select $old_fh;
+}
+
+_autoflush( \*STDOUT );
+_autoflush( \*STDERR );
+
+print STDOUT "one\n";
+print STDERR "two\n\n";
+print STDOUT "three\n";