1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6my $CACERT_PEM_FILE = "lib/Mozilla/CA/cacert.pem"; 7my $GIT_AUTHOR = 'Mozilla <mozilla@mozilla.org>'; 8 9run ("./mk-ca-bundle.pl", $CACERT_PEM_FILE); 10 11system("git", "diff", "--exit-code", $CACERT_PEM_FILE) or exit; 12 13run("git", "add", $CACERT_PEM_FILE); 14 15my($y,$m,$d) = (gmtime)[5,4,3]; $y += 1900; $m++; 16my $ver = sprintf "%04d%02d%02d", $y, $m, $d; 17run("perl", "-pi", "-e", "s/(^our .VERSION = )'\\d+(.\\d+)?'/\$1'$ver'/", "lib/Mozilla/CA.pm"); 18run("git", "add", "lib/Mozilla/CA.pm"); 19 20run("git", "commit", "-m", "Update from Mozilla repository", "--author", $GIT_AUTHOR); 21 22run("perl", "Makefile.PL"); 23print "Don't forget to update the Changes file"; 24 25exit; 26 27sub run { 28 my @argv = @_; 29 for (@argv) { 30 $_ = qq("$_") if /\s/; 31 } 32 print ">>> @argv\n"; 33 system(@_); 34 die if $? != 0; 35} 36