Debian lenny version packages

[pkg-perl] / scripts / remove-higher-perl-deps.sh

diff --git a/scripts/remove-higher-perl-deps.sh b/scripts/remove-higher-perl-deps.sh
new file mode 100755 (executable)
index 0000000..3f4e274
--- /dev/null
+++ b/scripts/remove-higher-perl-deps.sh
@@ -0,0 +1,28 @@
+#!/usr/bin/bash
+
+help() {
+   cat <<EOF
+$0 <list of debian/control files to modify>
+
+Example:
+
+$0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/control
+
+EOF
+       
+}
+if [ $# -eq 0 ]; then
+       help
+fi
+
+for i in $@; do
+  perl -pi -e 's/debhelper\s*\(\s*>=\s*(6|7)\s*\)/debhelper7/g;
+s/perl\s*\(\s*>=\s*5\.8\.[3-9][^\)]*\)/perl (>= 5.8.3)/g;
+s/perl-modules\s*\(\s*>=\s*5\.8\.[3-9][^\)]*\)/perl-modules (>= 5.8.3)/g;
+s/perl\s*\(\s*>=\s*5\.9[^\)]*\)/perl (>= 5.8.3)/g;
+s/perl-modules\s*\(\s*>=\s*5\.9[^\)]*\)/perl-modules (>= 5.8.3)/g;
+s/perl\s*\(\s*>=\s*5\.10[^\)]*\)/perl (>= 5.8.3)/g;
+s/perl-modules\s*\(\s*>=\s*5\.10[^\)]*\)/perl-modules (>= 5.8.3)/g;
+s/perl-doc\s*(\([^\)]*\))?\s*,?//g;
+' $i
+done