mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2025-01-07 13:14:51 +00:00
Code Issues Releases Activity

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

Browse Source 
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..
This commit is contained in:
Peter Wemm 2000-06-17 19:06:13 +00:00
parent c04eccbd1e
commit 7ebe1c3acf
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=61752
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sys/alpha/conf/gethints.pl
View File

@ -8,7 +8,7 @@
#
# $FreeBSD$
while (<STDIN>) {
while (<>) {
chop;
s/#.*//;
next unless /^device/;

2
sys/i386/conf/gethints.pl
View File

@ -8,7 +8,7 @@
#
# $FreeBSD$
while (<STDIN>) {
while (<>) {
chop;
s/#.*//;
next unless /^device/;

2
sys/i386/conf/makeLINT.pl
View File

@ -2,7 +2,7 @@
# $FreeBSD$
$lno=0;
while (<STDIN>) {
while (<>) {
chop;
s/#.*//;
s/\f//g;

2
sys/pc98/conf/gethints.pl
View File

@ -8,7 +8,7 @@
#
# $FreeBSD$
while (<STDIN>) {
while (<>) {
chop;
s/#.*//;
next unless /^device/;