View | Details | Raw Unified | Return to bug 10112
Collapse All | Expand All

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
Lines 862-867 our $PERL_DEPS = { Link Here
862
        'required' => '0',
862
        'required' => '0',
863
        'min_ver'  => '0.07',
863
        'min_ver'  => '0.07',
864
    },
864
    },
865
    'Parse::DebControl' => {
866
        'usage'    => 'Test Debian control* files',
867
        'required' => '0',
868
        'min_ver'  => '2.005',
869
    },
865
};
870
};
866
871
867
1;
872
1;
(-)a/debian/control (+1 lines)
Lines 319-324 Depends: libalgorithm-checkdigits-perl, Link Here
319
 libnet-z3950-zoom-perl,
319
 libnet-z3950-zoom-perl,
320
 libnumber-format-perl,
320
 libnumber-format-perl,
321
 libopenoffice-oodoc-perl,
321
 libopenoffice-oodoc-perl,
322
 libparse-debcontrol-perl
322
 libpath-tiny-perl,
323
 libpath-tiny-perl,
323
 libpdf-api2-perl,
324
 libpdf-api2-perl,
324
 libpdf-api2-simple-perl,
325
 libpdf-api2-simple-perl,
(-)a/t/00-valid-debian-control-file.t (-1 / +23 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Parse::DebControl;
3
use Test::More;
4
5
plan tests => 2;
6
7
my $parser = new Parse::DebControl;
8
9
$parser->DEBUG();
10
11
my %opt = ( 'stripComments' => 1, );
12
13
my $rc;
14
eval {
15
16
    local $SIG{__WARN__} = sub { };    # perls arcane syntax to shush stderr?!
17
    $rc = $parser->parse_file( './debian/control', \%opt );
18
};
19
20
isnt( $rc, undef, "parsed ./debian/control file without errors" );
21
isnt( $rc, undef, "parsed ./debian/control.in file without errors" );
22
23
1;

Return to bug 10112