From 9b7f685f773a6a2a4735d53054157356600d4b72 Mon Sep 17 00:00:00 2001
From: peter <peter@FreeBSD.org>
Date: Sat, 17 Jun 2000 19:06:13 +0000
Subject: 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/pc98/conf/gethints.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sys/pc98/conf')

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/;
-- 
cgit v1.1