projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changed jira to handle branch names that are just numbers
[clearscm.git]
/
lib
/
Utils.pm
diff --git
a/lib/Utils.pm
b/lib/Utils.pm
index
9cb99e3
..
ea189a1
100644
(file)
--- a/
lib/Utils.pm
+++ b/
lib/Utils.pm
@@
-104,9
+104,11
@@
sub CheckParms($$) {
my $msg = RequiredFields($requiredFields, $rec);
my $msg = RequiredFields($requiredFields, $rec);
- my $function = (caller(1))[3];
+ my $function = (caller(1))[3];
+ my $calledFrom = (caller(2))[3];
+ my $lineNbr = (caller(2))[2];
- croak "Internal error: $function
:
$msg" if $msg;
+ croak "Internal error: $function
called from $calledFrom:$lineNbr\n\nThe field
$msg" if $msg;
return;
} # CheckParms
return;
} # CheckParms
@@
-255,7
+257,7
@@
STDOUT then do so in the $command passed in.
chomp @output;
chomp @output;
-
wantarray ? return
($status, @output) : $status;
+
return wantarray ?
($status, @output) : $status;
} # Execute
sub GetChildren(;$) {
} # Execute
sub GetChildren(;$) {
@@
-804,6
+806,8
@@
Returns:
print $out "$_\n";
} # for
print $out "$_\n";
} # for
+ close $out;
+
return;
} # RedirectOutput
return;
} # RedirectOutput