summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/flush.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/flush.pl')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/flush.pl32
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/flush.pl b/Master/tlpkg/tlperl0/lib/flush.pl
new file mode 100755
index 00000000000..8aa6d5580c9
--- /dev/null
+++ b/Master/tlpkg/tlperl0/lib/flush.pl
@@ -0,0 +1,32 @@
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: IO::Handle
+#
+;# Usage: &flush(FILEHANDLE)
+;# flushes the named filehandle
+
+;# Usage: &printflush(FILEHANDLE, "prompt: ")
+;# prints arguments and flushes filehandle
+
+sub flush {
+ local($old) = select(shift);
+ $| = 1;
+ print "";
+ $| = 0;
+ select($old);
+}
+
+sub printflush {
+ local($old) = select(shift);
+ $| = 1;
+ print @_;
+ $| = 0;
+ select($old);
+}
+
+1;