From d6ec2525926e9cbd3afc4b06ccd0300b05ddb301 Mon Sep 17 00:00:00 2001 From: victor Date: Mon, 18 Aug 2003 11:48:17 +0000 Subject: fix util merging error git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1107 63ad8ddf-47c3-0310-b6dd-a9e9d9715204 --- util/parsevar.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'util/parsevar.pl') diff --git a/util/parsevar.pl b/util/parsevar.pl index d532c786..fe2f2dc0 100644 --- a/util/parsevar.pl +++ b/util/parsevar.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: parsevar.pl,v 1.2 2003/06/20 22:06:30 in2 Exp $ +# $Id$ print << '.'; /* * This header file is auto-generated from pttbbs/mbbsd/var.c . @@ -16,7 +16,7 @@ while( <> ){ $_ = substr($_, 0, index($_, '=') - 1) if( index($_, '=') != -1 ); $_ .= ';' if( index($_, ';') == -1 ); print "extern $_\n"; - } elsif( /^\#/ && !/include/ ){ + } elsif( /^\s*\#/ && !/include/ ){ print; } } -- cgit v1.2.3