view tools/find_space.pl @ 1618:87a6ab8f478d

Returns of non-void expressions are no longer valid in void functions.
author Christian Kamm <kamm incasoftware de>
date Sat, 07 Nov 2009 18:48:11 +0100
parents 0acada9a9731
children
line wrap: on
line source

#!/usr/bin/perl

while (<>) {
	if ($_ =~ /[ \t]+$/){
		print "$ARGV\n";
	}
}