зеркало из https://github.com/mozilla/gecko-dev.git
13 строки
296 B
Perl
13 строки
296 B
Perl
|
open INFILE, "<$ARGV[1]";
|
||
|
$build = <INFILE>;
|
||
|
close INFILE;
|
||
|
chop $build;
|
||
|
open OUTFILE, ">$ARGV[0]" || die;
|
||
|
|
||
|
print OUTFILE "/* THIS IS A GENERATED FILE!\n*\n";
|
||
|
print OUTFILE "* See mozilla/config/build_header.pl */\n*\n*/";
|
||
|
print OUTFILE "\n\#define NS_BUILD_ID " . $build . "\n";
|
||
|
|
||
|
close OUTFILE;
|
||
|
|