From cf9383412494964d6188fcf08a362c0c0f313afc Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Tue, 26 Nov 2019 14:11:14 +0300 Subject: Import perl (5.30.0-9) --- debian/fixheaders | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 debian/fixheaders (limited to 'debian/fixheaders') diff --git a/debian/fixheaders b/debian/fixheaders new file mode 100644 index 0000000..93ce13d --- /dev/null +++ b/debian/fixheaders @@ -0,0 +1,24 @@ +#!perl -w + +# +# Fix up generated .ph files +# + +use strict; +use File::Find; + +my @args = @ARGV; +@ARGV = (); +find sub { push @ARGV, $File::Find::name if -f and /\.ph$/ }, @args; + +$^I = ''; + +die "$0: no headers under @args?\n" unless @ARGV; +while (<>) +{ + # discard casts + s/(?