X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/2cd951c678998b2b0230c8eb25717ecf0f1dd2db..c2cc7db1ccde3eb2ff723c4b7b213a055f56e8ae:/src/generate_treefuncs.pl

diff --git a/src/generate_treefuncs.pl b/src/generate_treefuncs.pl
index 31d9151..56c686a 100755
--- a/src/generate_treefuncs.pl
+++ b/src/generate_treefuncs.pl
@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 
-open (FILE, "treefuncs.def") || die ("Can't open treefuncs.def");
+my $srcfile = $ARGV[0] || "treefuncs.def";
+
+open (FILE, "$srcfile") || die ("Can't open $srcfile");
 open (OUTC, ">treefuncs.c") || die ("Can't open treefuncs.c");
 open (OUTH, ">treefuncs.h") || die ("Can't open treefuncs.h");