Файловый менеджер - Редактировать - /usr/local/lib/x86_64-linux-gnu/perl/5.34.0/dbixs_rev.pl
Ðазад
#!/usr/bin/perl use strict; use warnings; my $dbixs_rev_file = "dbixs_rev.h"; sub skip_update { my $reason = shift; print "Skipping regeneration of $dbixs_rev_file: ", $reason, "\n"; utime (time (), time (), $dbixs_rev_file); # update modification time exit 0; } # skip_update -d ".git" or skip_update ("No git env"); my @n = eval { qx{git log --pretty=oneline} }; @n or skip_update ("Git log was empty"); open my $fh, ">$dbixs_rev_file" or die "Can't open $dbixs_rev_file: $!\n"; print $fh "/* ", scalar localtime, " */\n"; chomp (my @st = qx{git status -s --show-stash}); print $fh "/* $_ */\n" for grep { !m/\b$dbixs_rev_file\b/ } @st; my $def = "DBIXS_REVISION"; my $rev = scalar @n; print $fh "#define $def $rev\n"; close $fh or die "Error closing $dbixs_rev_file: $!\n"; print "Wrote $def $rev to $dbixs_rev_file\n";
| ver. 1.1 | |
.
| PHP 8.4.18 | Ð“ÐµÐ½ÐµÑ€Ð°Ñ†Ð¸Ñ Ñтраницы: 0 |
proxy
|
phpinfo
|
ÐаÑтройка