[SCM] Debian package checker branch, master, updated. 2.5.11-172-g6e5c8ca
The following commit has been merged in the master branch:
commit 6e5c8cacedba943e6aa4039bed6526a7dc1b0e8f
Author: Niels Thykier <niels@thykier.net>
Date: Sun Feb 17 17:21:08 2013 +0100
L::Collect::*: Fix minor code issues in the synopsis
Signed-off-by: Niels Thykier <niels@thykier.net>
diff --git a/lib/Lintian/Collect/Binary.pm b/lib/Lintian/Collect/Binary.pm
index f808679..fc0e3ce 100644
--- a/lib/Lintian/Collect/Binary.pm
+++ b/lib/Lintian/Collect/Binary.pm
@@ -36,8 +36,8 @@ Lintian::Collect::Binary - Lintian interface to binary package data collection
=head1 SYNOPSIS
- my ($name, $type) = ('foobar', 'binary');
- my $collect = Lintian::Collect->new($name, $type);
+ my ($name, $type, $dir) = ('foobar', 'binary', '/path/to/lab-entry');
+ my $collect = Lintian::Collect->new ($name, $type, $dir);
if ($collect->native) {
print "Package is native\n";
}
diff --git a/lib/Lintian/Collect/Package.pm b/lib/Lintian/Collect/Package.pm
index d8c7af5..bca2e3b 100644
--- a/lib/Lintian/Collect/Package.pm
+++ b/lib/Lintian/Collect/Package.pm
@@ -33,10 +33,10 @@ Lintian::Collect::Package - Lintian base interface to binary and source package
=head1 SYNOPSIS
- my ($name, $type) = ('foobar', 'source');
- my $collect = Lintian::Collect->new($name, $type);
+ my ($name, $type, $dir) = ('foobar', 'source', '/path/to/lab-entry');
+ my $collect = Lintian::Collect->new ($name, $type, $dir);
my $file;
- eval { $file = $collect->unpacked('/bin/ls'); };
+ eval { $file = $collect->unpacked ('bin/ls'); };
if ( $file && -e $file ) {
# work with $file
;
diff --git a/lib/Lintian/Collect/Source.pm b/lib/Lintian/Collect/Source.pm
index 52bd034..b6dcb91 100644
--- a/lib/Lintian/Collect/Source.pm
+++ b/lib/Lintian/Collect/Source.pm
@@ -37,8 +37,8 @@ Lintian::Collect::Source - Lintian interface to source package data collection
=head1 SYNOPSIS
- my ($name, $type) = ('foobar', 'source');
- my $collect = Lintian::Collect->new($name, $type);
+ my ($name, $type, $dir) = ('foobar', 'source', '/path/to/lab-entry');
+ my $collect = Lintian::Collect->new ($name, $type, $dir);
if ($collect->native) {
print "Package is native\n";
}
--
Debian package checker
Reply to: