git.maemo.org Git - pkg-perl/blob - scripts/remove-higher-perl-deps.sh

   1 #!/bin/bash
   2
   3 help() {
   4    cat <<EOF
   5 $0 <list of debian/control files to modify>
   6
   7 Example:
   8
   9 $0 libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/debian/control
  10
  11 EOF
  12
  13 }
  14 if [ $# -eq 0 ]; then
  15         help
  16 fi
  17
  18 for i in $@; do
  19   perl -pi -e 's/debhelper\s*\(\s*>=\s*(6|7)\s*\)/debhelper7/g;
  20 s/perl\s*\(\s*>=\s*5\.8\.[3-9][^\)]*\)/perl (>= 5.8.3)/g;
  21 s/perl-modules\s*\(\s*>=\s*5\.8\.[3-9][^\)]*\)/perl-modules (>= 5.8.3)/g;
  22 s/perl\s*\(\s*>=\s*5\.9[^\)]*\)/perl (>= 5.8.3)/g;
  23 s/perl-modules\s*\(\s*>=\s*5\.9[^\)]*\)/perl-modules (>= 5.8.3)/g;
  24 s/perl\s*\(\s*>=\s*5\.10[^\)]*\)/perl (>= 5.8.3)/g;
  25 s/perl-modules\s*\(\s*>=\s*5\.10[^\)]*\)/perl-modules (>= 5.8.3)/g;
  26 s/perl-doc\s*(\([^\)]*\))?\s*,?//g;
  27 ' $i
  28 done