ffzg/recall_notices.pl: added --interval and --dedup

[koha.git] / debian / bd-to-depends

diff --git a/debian/bd-to-depends b/debian/bd-to-depends
index ce8809b..5bc755b 100755 (executable)
--- a/debian/bd-to-depends
+++ b/debian/bd-to-depends
@@ -1,23 +1,30 @@
-#!/usr/bin/python
+#!/usr/bin/perl
 
-import re
-import debian.deb822
+use Modern::Perl;
 
-exclusions = [
+my @exclusions = (
     'debhelper',
-    'python',
-    'python-debian',
-]
+);
 
-exclusions = [re.compile(s) for s in exclusions]
+open my $control_fh, '<', 'debian/control' or die "Cannot open debian/control";
+my @lines = <$control_fh>;
+close $control_fh;
 
-depstring = debian.deb822.Deb822(file('debian/control')).get('Build-Depends')
-deps = [s.strip() for s in depstring.split(',')]
-result = []
-for dep in deps:
-    for ex in exclusions:
-        if ex.match(dep):
-            break
-    else:
-        result.append(dep)
-print 'koha:Depends=%s' % ', '.join(result)
+my @build_depends;
+my $in_build_depends_block;
+for my $line ( @lines ) {
+    chomp $line;
+    if ( $line =~ m|Build-Depends:| ) {
+        $in_build_depends_block = 1;
+        $line =~ s|Build-Depends:||;
+    }
+    next unless $in_build_depends_block;
+    if ( $line =~ m|^\s*$| ) {
+        last;
+    }
+    for my $dep ( split ',', $line ) {
+        $dep =~ s|^\s*||;
+        push @build_depends, $dep unless ( map { ( $dep =~ m|$_| ) ? 1 : () } @exclusions);
+    }
+}
+print 'koha:Depends=' . join ( ', ', @build_depends ) . "\n";