Re: [SCM] Debian package checker branch, master, updated. 2.2.6-29-g8083cda

["Adam D. Barratt" <adam@adam-barratt.org.uk>]

On Tue, 2009-03-03 at 13:34 -0800, Russ Allbery wrote:
> > -	    $pre_depends = Dep::parse($pre_depends);
> > +	    $pre_depends = Lintian::Relation->new($pre_depends);
> >  	    tag "file-in-usr-something-x11-without-pre-depends", "$file"
> > -		unless Dep::implies($pre_depends, Dep::parse('x11-common (>= 1:7.0.0)'));
> > +		unless $pre_depends->implies('x11-common (>= 1:7.0.0)');
> >  
> >  	    # Always set this so that we don't redo the check, even if we
> >  	    # didn't warn.  If the first instance didn't warn, none will.
> 
> You should be able to simplify that even further now to:
> 
> tag 'file-in-usr-something-x11-without-pre-depends', $file
>     unless $info->relation('pre-depends')->implies('x11-common (>= 1:7.0.0)');

Aha; thanks!  I'd forgotten Lintian::Collect::* had a relation() method.

Adam