[svn-upgrade] new version scowl (7.1)

[deb_pkgs/scowl.git] / current / src / make-README

diff --git a/current/src/make-README b/current/src/make-README
new file mode 100755 (executable)
index 0000000..ebd8d0a
--- /dev/null
+++ b/current/src/make-README
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+sub bc {
+    local $_ = `$_[0]`;
+    chop;
+    return $_;
+}
+
+$/ = undef;
+open F, "README.in";
+$_ = <F>;
+s/\@\`([^\`]+)\`/bc($1)/ge;
+
+open F, ">README";
+print F;
+