novarobot
/
webperl-for
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added a To-Do

Browse Source
master v0.05-beta
Hauke D 7 years ago
parent 62e9b19fe3
commit 650cbf91fd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
build/build.pl
Unescape Escape View File

@ -124,7 +124,7 @@ GITSTUFF: {
my $myhead = git 'log', '-1', '--format=%h', $C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE}; my $myhead = git 'log', '-1', '--format=%h', $C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE};
my $remhead = git 'log', '-1', '--format=%h', 'origin/'.$C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE}; my $remhead = git 'log', '-1', '--format=%h', 'origin/'.$C{PERL_BRANCH}, {chomp=>1,show_cmd=>$VERBOSE};
say STDERR "# Local branch is at $myhead, remote is $remhead"; say STDERR "# Local branch is at $myhead, remote is $remhead";
if ($myhead ne $remhead) { if ($myhead ne $remhead) { #TODO Later: This should also check which git commit is newer!
if (prompt("Would you like to update? WARNING: Unsaved local changes may be lost! [Yn]","y")=~/^\s*y/i) { if (prompt("Would you like to update? WARNING: Unsaved local changes may be lost! [Yn]","y")=~/^\s*y/i) {
eval { eval {
if ($C{CLOBBER_BRANCH}) { if ($C{CLOBBER_BRANCH}) {

Write Preview
Loading…
Cancel
Save