From cf9383412494964d6188fcf08a362c0c0f313afc Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Tue, 26 Nov 2019 14:11:14 +0300
Subject: Import perl (5.30.0-9)

---
 debian/stripdoc | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 debian/stripdoc

(limited to 'debian/stripdoc')

diff --git a/debian/stripdoc b/debian/stripdoc
new file mode 100644
index 0000000..74a1642
--- /dev/null
+++ b/debian/stripdoc
@@ -0,0 +1,53 @@
+#!perl -w
+
+#
+# Strip POD documentation out of base modules
+#
+# We install separate copies of these modules with the documentation intact
+# into libperl5.xx / perl-modules-5.xx, which are pulled in by perl-doc
+#
+
+use strict;
+use File::Find;
+use File::Path;
+
+my @args = @ARGV;
+@ARGV = ();
+find sub { push @ARGV, $File::Find::name if -f and /\.pm$/ }, @args;
+die "$0: no modules under @args?\n" unless @ARGV;
+
+$^I = '';
+$/ = '';
+
+my $in_pod;
+my $pod;
+
+while (<>)
+{
+    if ($in_pod ||= /^=\w/)
+    {
+
+	if (/^=cut\n/)
+	{
+	    $in_pod = 0;
+	}
+	else
+	{
+	    next;
+	}
+    }
+    else
+    {
+	print;
+    }
+}
+continue
+{
+    if (eof)
+    {
+	close ARGV;
+	$in_pod = 0;
+    }
+}
+
+exit
-- 
cgit v1.2.3