From 3d9a083508155e2f74de8d95acedb312cd5fb32f Mon Sep 17 00:00:00 2001 From: Nick Hibma Date: Wed, 18 Aug 1999 08:39:14 +0000 Subject: [PATCH] Remove redundant spaces in the whole line, not only the first occurrence. (not that anyone actually reads the created .c and .h files :) --- sys/kern/makedevops.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sys/kern/makedevops.pl b/sys/kern/makedevops.pl index 2775d0a10784..3d4b730b5d42 100644 --- a/sys/kern/makedevops.pl +++ b/sys/kern/makedevops.pl @@ -35,7 +35,7 @@ # From @(#)makedevops.sh 1.1 1998/06/14 13:53:12 dfr Exp $ # From @(#)makedevops.sh ?.? 1998/10/05 # -# $Id: makedevops.pl,v 1.7 1999/05/10 17:06:13 dfr Exp $ +# $Id: makedevops.pl,v 1.8 1999/05/10 17:45:49 n_hibma Exp $ # # Script to produce device front-end sugar. @@ -296,7 +296,7 @@ foreach $src ( @filenames ) { # $line =~ s/^\s+//; # remove leading ... $line =~ s/\s+$//; # ... and trailing whitespace - $line =~ s/\s+/ /; # remove double spaces + $line =~ s/\s+/ /g; # remove double spaces @arguments = split m/\s*;\s*/, $line; @varnames = (); # list of varnames @@ -324,7 +324,7 @@ foreach $src ( @filenames ) { $arguments = join(", ", @arguments); $varnames = join(", ", @varnames); - $default = "0" if $default eq ""; + $default = "0" if $default eq ""; if ( $hfile ) { # the method description