zap trailing whitespace in the output
This commit is contained in:
parent
1f0785bc5c
commit
1616b919e5
@ -1,5 +1,5 @@
|
|||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
# $OpenBSD: outdated-perl-ports,v 1.2 2004/04/11 17:03:56 xsa Exp $
|
# $OpenBSD: outdated-perl-ports,v 1.3 2007/01/17 19:44:19 jasper Exp $
|
||||||
#
|
#
|
||||||
# Copyright (c) 2003 Sam Smith <S@mSmith.net>
|
# Copyright (c) 2003 Sam Smith <S@mSmith.net>
|
||||||
#
|
#
|
||||||
@ -55,7 +55,7 @@ my @line; # $line run through split
|
|||||||
if (defined $ENV{DEBUG}){print STDERR "$1\t$2\t$3\n";}
|
if (defined $ENV{DEBUG}){print STDERR "$1\t$2\t$3\n";}
|
||||||
|
|
||||||
if ((defined $Modules{$2}) and ($Modules{$2} gt $3)) {
|
if ((defined $Modules{$2}) and ($Modules{$2} gt $3)) {
|
||||||
print STDOUT "Out of date: $1 vs $Modules{$2}. $line[5] \n";
|
print STDOUT "Out of date: $1 vs $Modules{$2}. $line[5]\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user