1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl -w $ver = shift || die "Usage: $0 [version]\n"; open F,">dlaver.inc" or die $!; print F " .define VERSION \"$ver\"\n"; close F; open F,">dlaver.h" or die $!; print F "#define VERSION \"$ver\"\n"; close F; exit 0;