[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Removed trailing white-space.

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/796655901cef
branches:  trunk
changeset: 503735:796655901cef
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Sun Nov 27 20:12:44 2005 +0000

description:
Removed trailing white-space.

diffstat:

 pkgtools/pkglint/files/pkglint.pl |  18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diffs (84 lines):

diff -r df2e6d1a557d -r 796655901cef pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Sun Nov 27 19:27:20 2005 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Sun Nov 27 20:12:44 2005 +0000
@@ -11,7 +11,7 @@
 # Freely redistributable.  Absolutely no warranty.
 #
 # From Id: portlint.pl,v 1.64 1998/02/28 02:34:05 itojun Exp
-# $NetBSD: pkglint.pl,v 1.385 2005/11/24 21:51:10 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.386 2005/11/27 20:12:44 rillig Exp $
 #
 # This version contains lots of changes necessary for NetBSD packages
 # done by:
@@ -208,7 +208,7 @@
 
 sub explain($$@) {
        my ($file, $lines, @texts) = @_;
-       
+
        if ($explain_flag) {
                foreach my $text (@texts) {
                        print STDOUT ("${indent}  ${text}\n");
@@ -288,7 +288,7 @@
 use constant CHANGED   => 4;
 use constant BEFORE    => 5;
 use constant AFTER     => 6;
-       
+
 sub new($$$$) {
        my ($class, $file, $lines, $text, $physlines) = @_;
        my ($self) = ([$file, $lines, $text, $physlines, false, [], []]);
@@ -1714,7 +1714,7 @@
 
 my $get_tool_names_value = undef;
 sub get_tool_names() {
-       
+
        if (defined($get_tool_names_value)) {
                return $get_tool_names_value;
        }
@@ -1763,7 +1763,7 @@
        $value_novar = $value;
        while ($value_novar =~ s/\$\{[^{}]*\}//g) {
        }
-       
+
        if ($type eq "Category") {
                my $allowed_categories = join("|", qw(
                        archivers audio
@@ -1818,7 +1818,7 @@
                        # don't even try to check anything
                } elsif ($value =~ qr":\.\./\.\./([^/]+)/([^/]+)$") {
                        my ($cat, $pkg) = ($1, $2);
-                       
+
                        if (!$is_wip && $cat eq "wip") {
                                $line->log_error("A pkgsrc package must not depend on any outside package.");
                        }
@@ -1930,7 +1930,7 @@
                } else {
                        $line->log_warning("\"${value}\" is not a valid platform tuple.");
                }
-                       
+
        } elsif ($type eq "Readonly") {
                $line->log_error("\"${varname}\" is a read-only variable and therefore must not be modified.");
 
@@ -1989,7 +1989,7 @@
 
                } elsif ($value =~ regex_unresolved) {
                        # No further checks
-                       
+
                } elsif ($value =~ qr"^(?:http://|ftp://)[-0-9A-Za-z.]+(?::\d+)?/~?([-%&+,./0-9:=?\@A-Z_a-z]|\\#)*?$") {
                        my $sites = get_dist_sites();
 
@@ -2715,7 +2715,7 @@
 sub checkfile_package_Makefile($$$$) {
        my ($fname, $whole, $main_lines, $lines) = @_;
        my ($distname, $distfiles);
-       
+
        log_info($fname, NO_LINE_NUMBER, "[checkfile_package_Makefile]");
 
        checkperms($fname);