Import of oldpackages/perl

Signed-off-by: Marcel Denia <naoir@gmx.net>
2026-04-30 15:38:40 +01:00 · 2014-07-04 05:18:57 +02:00
parent 931f161e27
commit 6420bbd712
17 changed files with 10826 additions and 0 deletions
@@ -0,0 +1,11 @@
+#!/bin/sh
+# 
+# Attempt to strip comments and pod docs from perl modules
+#
+
+[ "$#" -gt 0 ] || set .
+echo "---> Stripping modules in: $@" >&2
+find "$@" -name \*.pm -or -name \*.pl -or -name \*.pod | while read fn; do
+	echo "   $fn" >&2
+	sed -i -e '/^=\(head\|pod\|item\|over\|back\)/,/^=cut/d; /^=\(head\|pod\|item\|over\|back\)/,$d; /^#$/d; /^#[^!"'"'"']/d' "$fn"
+done