[SCM] Debian package checker branch, infra-513663, updated. 2.5.0-rc1-111-gdb989e7
The following commit has been merged in the infra-513663 branch:
commit fc141cd3771982ba9080bb178113d27e602e7f11
Author: Niels Thykier <niels@thykier.net>
Date: Wed Mar 30 00:03:51 2011 +0200
Removed (now) unused subs from f/lintian
diff --git a/frontend/lintian b/frontend/lintian
index 45d7246..a84fcb0 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -1468,58 +1468,6 @@ sub sort_coll {
return ($ap->{'name'} cmp $bp->{'name'});
}
-# -------------------------------
-
-# get package name, version, and file name from the lab
-sub get_bin_info_from_lab {
- my ($base_dir) = @_;
- my ($pkg,$ver,$arch,$file);
-
- ($pkg = read_file("$base_dir/fields/package"))
- or fail("cannot read file $base_dir/fields/package: $!");
-
- ($ver = read_file("$base_dir/fields/version"))
- or fail("cannot read file $base_dir/fields/version: $!");
-
- ($arch = read_file("$base_dir/fields/architecture"))
- or fail("cannot read file $base_dir/fields/architecture: $!");
-
- ($file = readlink("$base_dir/deb"))
- or fail("cannot read link $base_dir/deb: $!");
-
- return ($file, package => $pkg, version => $ver, architecture => $arch);
-}
-
-# get package name, version, and file name from the lab
-sub get_src_info_from_lab {
- my ($base_dir) = @_;
- my ($pkg,$ver,$file);
-
- ($pkg = read_file("$base_dir/fields/source"))
- or fail("cannot read file $base_dir/fields/source: $!");
-
- ($ver = read_file("$base_dir/fields/version"))
- or fail("cannot read file $base_dir/fields/version: $!");
-
- ($file = readlink("$base_dir/dsc"))
- or fail("cannot read link $base_dir/dsc: $!");
-
- return ($file, source => $pkg, version => $ver);
-}
-
-# -------------------------------
-
-# read first line of a file
-sub read_file {
- my $t;
-
- open(T, '<', $_[0]) or return;
- chop($t = <T>);
- close(T) or return;
-
- return $t;
-}
-
# }}}
# {{{ Exit handler.
--
Debian package checker
Reply to: