From 7ebe1c3acf4c965047c49aae281f9997e1057537 Mon Sep 17 00:00:00 2001
From: Peter Wemm <peter@FreeBSD.org>
Date: Sat, 17 Jun 2000 19:06:13 +0000
Subject: [PATCH] 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..
---
 sys/alpha/conf/gethints.pl | 2 +-
 sys/i386/conf/gethints.pl  | 2 +-
 sys/i386/conf/makeLINT.pl  | 2 +-
 sys/pc98/conf/gethints.pl  | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/sys/alpha/conf/gethints.pl b/sys/alpha/conf/gethints.pl
index d00582c83b6e..80586e381bff 100644
--- a/sys/alpha/conf/gethints.pl
+++ b/sys/alpha/conf/gethints.pl
@@ -8,7 +8,7 @@
 #
 # $FreeBSD$
 
-while (<STDIN>) {
+while (<>) {
 	chop;
 	s/#.*//;
 	next unless /^device/;
diff --git a/sys/i386/conf/gethints.pl b/sys/i386/conf/gethints.pl
index d00582c83b6e..80586e381bff 100644
--- a/sys/i386/conf/gethints.pl
+++ b/sys/i386/conf/gethints.pl
@@ -8,7 +8,7 @@
 #
 # $FreeBSD$
 
-while (<STDIN>) {
+while (<>) {
 	chop;
 	s/#.*//;
 	next unless /^device/;
diff --git a/sys/i386/conf/makeLINT.pl b/sys/i386/conf/makeLINT.pl
index 9fe23618d8e9..06af090c9eff 100644
--- a/sys/i386/conf/makeLINT.pl
+++ b/sys/i386/conf/makeLINT.pl
@@ -2,7 +2,7 @@
 # $FreeBSD$
 
 $lno=0;
-while (<STDIN>) {
+while (<>) {
 	chop;
 	s/#.*//;
 	s/\f//g;
diff --git a/sys/pc98/conf/gethints.pl b/sys/pc98/conf/gethints.pl
index 51ac8a98fc22..1a90029ff4a6 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/;