Skip to content
Snippets Groups Projects
Commit 1a520982 authored by Martin Nilsson's avatar Martin Nilsson
Browse files

Ignore empty lines and lines beginning with # in the export_list.

Rev: bin/export.pike:1.50
parent b27c8b70
Branches
Tags
No related merge requests found
#! /usr/bin/env pike #! /usr/bin/env pike
/* $Id: export.pike,v 1.49 2002/04/14 11:07:35 mikael%brandstrom.org Exp $ */ /* $Id: export.pike,v 1.50 2002/04/21 01:41:07 nilsson Exp $ */
multiset except_modules = (<>); multiset except_modules = (<>);
string vpath; string vpath;
...@@ -111,6 +111,8 @@ array(string) build_file_list(string vpath, string list_file) ...@@ -111,6 +111,8 @@ array(string) build_file_list(string vpath, string list_file)
array(string) ret=({ }); array(string) ret=({ });
foreach(Stdio.FILE(list_file)->line_iterator(1);; string line) foreach(Stdio.FILE(list_file)->line_iterator(1);; string line)
{ {
if( !sizeof(line) || line[0]=='#' )
continue;
werror("%O\n",line); werror("%O\n",line);
string name=vpath+line; string name=vpath+line;
if(file_stat(name)->isdir) if(file_stat(name)->isdir)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment