X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=debian%2Fbd-to-depends;h=cff8b24446398a295dda0e33e1113cd7e13522b6;hb=99f6116f3595f4d58307fc3249f3be98550d99a9;hp=747a7d1372148e516aab57011bda00a97cc6de3d;hpb=6241d54c52b9ad1e8f1117b260cbbc86c4d37faa;p=koha.git

diff --git a/debian/bd-to-depends b/debian/bd-to-depends
index 747a7d1372..cff8b24446 100755
--- a/debian/bd-to-depends
+++ b/debian/bd-to-depends
@@ -1,21 +1,31 @@
-#!/usr/bin/python
+#!/usr/bin/perl
 
-import re
-import debian.deb822
+use strict;
+use warnings;
 
-exclusions = [
+my @exclusions = (
     'debhelper',
-]
+);
 
-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";