The following commit has been merged in the master branch:
commit 6e5c8cacedba943e6aa4039bed6526a7dc1b0e8f
Author: Niels Thykier <[email protected]>
Date: Sun Feb 17 17:21:08 2013 +0100
L::Collect::*: Fix minor code issues in the synopsis
Signed-off-by: Niels Thykier <[email protected]>
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
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
Archive: http://lists.debian.org/[email protected]
