Use while (<>) instead of while(<STDIN>) so that perl will automagically

deal with filename arguments.  It is amazing how much you forget over time.

Thanks to the people that reminded me this.  I knew there was an easy way
that didn't involve messing with $argv, filehandles, etc, but just could
not remember - all of my books are on the opposite side of the planet..

1 files changed, 1 insertions, 1 deletions

diff --git a/sys/pc98/conf/gethints.pl b/sys/pc98/conf/gethints.pl
index 51ac8a9..1a90029 100644
--- a/sys/pc98/conf/gethints.pl
+++ b/sys/pc98/conf/gethints.pl
@@ -8,7 +8,7 @@
 #
 # $FreeBSD$
 
-while (<STDIN>) {
+while (<>) {
 	chop;
 	s/#.*//;
 	next unless /^device/;