[SCM] Debian package checker branch, master, updated. 1.24.2-38-geb5bf67

[Adam D. Barratt]

The following commit has been merged in the master branch:
commit eb5bf672e0bc94effa08c8a4fcd8c598b4cc5ff1
Author: Adam D. Barratt <[EMAIL PROTECTED]>
Date:   Fri Jul 25 06:41:52 2008 +0100

    Migrate a few further fields/* lookups which were missed on the first pass

diff --git a/checks/copyright-file b/checks/copyright-file
index 468eb4d..a31568a 100644
--- a/checks/copyright-file
+++ b/checks/copyright-file
@@ -94,11 +94,10 @@ while (<IN>) {
        # this case is allowed, if this package depends on link
        # and both packages come from the same source package
 
-       if (not open (VERSION, '<', "fields/version")) {
+       if (not defined $info->field('version')) {
            fail("Can't open fields/version: $!");
        } else {
-           chomp(my $our_version = <VERSION>);
-           close VERSION;
+           my $our_version = $info->field('version');
 
            # depend on $link pkg?
            if ((not depends_on($link, $our_version)) &&
@@ -273,11 +272,11 @@ spelling_check('spelling-error-in-copyright', $_);
 if ($gpl || m,/usr/share/common-licenses/GPL,) {
     unless (m,exception|exemption|/usr/share/common-licenses/(?!GPL)\S,) {
        my @depends;
-       if (open(DEP, '<', 'fields/depends')) {
-           @depends = split (/\s*,\s*/, scalar <DEP>);
+       if (defined $info->field('depends')) {
+           @depends = split (/\s*,\s*/, scalar $info->field('depends'));
        }
-       if (open(DEP, '<', 'fields/pre-depends')) {
-           push @depends, split (/\s*,\s*/, scalar <DEP>);
+       if (defined $info->field('pre-depends')) {
+           push @depends, split (/\s*,\s*/, scalar 
$info->field('pre-depends'));
        }
        close DEP;
        if (grep { /^libssl[0-9.]+(\s|\z)/ && !/\|/ } @depends) {

-- 
Debian package checker


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]