में अनुवाद नहीं किया जा सकता है मैं अपने पूर्व के लिए प्रतिबद्ध हुक के साथ एक समस्या है।पूर्व प्रतिबद्ध SVN में हुक: देशी स्थान से UTF-8
यह हुक परीक्षण करता है, तो एक फाइल जब उपयोगकर्ता करता है बंद है। जब एक बुरी हालत होता है, यह चाहिए उत्पादन किसी अन्य उपयोगकर्ता इस फाइल ताला लगा है या यदि कोई भी ताला लगा है, यह दिखाना चाहिए "आप (नाम file's) इस फाइल संदेश ताला लगा नहीं कर रहे हैं" कि। त्रुटि तब होती है जब फ़ाइल के नाम में "ç" और कछुआ जैसे कुछ लैटिन वर्ण होते हैं, यह मुझे आउटपुट में दिखाते हैं।
कमिट में विफल रहा है (विवरण का पालन करें): [। त्रुटि उत्पादन UTF-8 के मूल निवासी के स्थान से अनुवाद नहीं हो सका]
है: पूर्व प्रतिबद्ध उत्पादन के साथ हुक (निकास कोड 1) द्वारा अवरुद्ध प्रतिबद्ध आप जानते हैं कि मैं इसे कैसे हल कर सकता हूं?
धन्यवाद,
एलेक्जेंडर
मेरे खोल स्क्रिप्ट यहाँ है:
#!/bin/sh
REPOS="$1"
TXN="$2"
export LANG="en_US.UTF-8"
/app/svn/hooks/ensure-has-need-lock.pl "$REPOS" "$TXN"
if [ $? -ne 0 ]; then exit 1; fi
exit 0
और मेरे पर्ल यहाँ है:
!/usr/bin/env perl
#Turn on warnings the best way depending on the Perl version.
BEGIN {
if ($] >= 5.006_000)
{ require warnings; import warnings; }
else
{ $^W = 1; }
}
use strict;
use Carp;
&usage unless @ARGV == 2;
my $repos = shift;
my $txn = shift;
my $svnlook = "/usr/local/bin/svnlook";
my $user;
my $ok = 1;
foreach my $program ($svnlook)
{
if (-e $program)
{
unless (-x $program)
{
warn "$0: required program $program' is not executable, ",
"edit $0.\n";
$ok = 0;
}
}
else
{
warn "$0: required program $program' does not exist, edit $0.\n";
$ok = 0;
}
}
exit 1 unless $ok;
unless (-e $repos){
&usage("$0: repository directory $repos' does not exist.");
}
unless (-d $repos){
&usage("$0: repository directory $repos' is not a directory.");
}
foreach my $user_tmp (&read_from_process($svnlook, 'author', $repos, '-t', $txn))
{
$user = $user_tmp;
}
my @errors;
foreach my $transaction (&read_from_process($svnlook, 'changed', $repos, '-t', $txn)){
if ($transaction =~ /^U. (.*[^\/])$/){
my $file = $1;
my $err = 0;
foreach my $locks (&read_from_process($svnlook, 'lock', $repos, $file)){
$err = 1;
if($locks=~ /Owner: (.*)/){
if($1 != $user){
push @errors, "$file : You are not locking this file!";
}
}
}
if($err==0){
push @errors, "$file : You are not locking this file!";
}
}
elsif($transaction =~ /^D. (.*[^\/])$/){
my $file = $1;
my $tchan = &read_from_process($svnlook, 'lock', $repos, $file);
foreach my $locks (&read_from_process($svnlook, 'lock', $repos, $file)){
push @errors, "$1 : cannot delete locked Files";
}
}
elsif($transaction =~ /^A. (.*[^\/])$/){
my $needs_lock;
my $path = $1;
foreach my $prop (&read_from_process($svnlook, 'proplist', $repos, '-t', $txn, '--verbose', $path)){
if ($prop =~ /^\s*svn:needs-lock : (\S+)/){
$needs_lock = $1;
}
}
if (not $needs_lock){
push @errors, "$path : svn:needs-lock is not set. Pleas ask TCC for support.";
}
}
}
if (@errors)
{
warn "$0:\n\n",
join("\n", @errors), "\n\n";
exit 1;
}
else
{
exit 0;
}
sub usage
{
warn "@_\n" if @_;
die "usage: $0 REPOS TXN-NAME\n";
}
sub safe_read_from_pipe
{
unless (@_)
{
croak "$0: safe_read_from_pipe passed no arguments.\n";
}
print "Running @_\n";
my $pid = open(SAFE_READ, '-|');
unless (defined $pid)
{
die "$0: cannot fork: $!\n";
}
unless ($pid)
{
open(STDERR, ">&STDOUT")
or die "$0: cannot dup STDOUT: $!\n";
exec(@_)
or die "$0: cannot exec @_': $!\n";
}
my @output;
while (<SAFE_READ>)
{
chomp;
push(@output, $_);
}
close(SAFE_READ);
my $result = $?;
my $exit = $result >> 8;
my $signal = $result & 127;
my $cd = $result & 128 ? "with core dump" : "";
if ($signal or $cd)
{
warn "$0: pipe from @_' failed $cd: exit=$exit signal=$signal\n";
}
if (wantarray)
{
return ($result, @output);
}
else
{
return $result;
}
}
sub read_from_process
{
unless (@_)
{
croak "$0: read_from_process passed no arguments.\n";
}
my ($status, @output) = &safe_read_from_pipe(@_);
if ($status)
{
if (@output)
{
die "$0: @_' failed with this output:\n", join("\n", @output), "\n";
}
else
{
die "$0: @_' failed with no output.\n";
}
}
else
{
return @output;
}
}
मुझे लगता है कि पर्ल स्क्रिप्ट के स्रोत को भी देखना महत्वपूर्ण होगा। आप क्यों मानते हैं कि त्रुटि वहां नहीं है? – amarillion
मुझे लगता है कि त्रुटि खोल या कछुए पर है (मुझे नहीं पता) क्योंकि शेल में केवल यह शामिल है: गूंज "testç" 1> और 2 वही त्रुटि होती है। लेकिन मैं अपना पर्ल कोड डालूंगा। –
मैं इस समाधान को 5 दिनों के लिए देख रहा हूं और मुझे नहीं मिला। शायद यह एक बग या कुछ है। अगर किसी के पास क्या हो रहा है, या यदि यह एक बग है या किसी के साथ हुआ तो कोई विचार है। धन्यवाद –