The error message to Error::Simple() must be passed as a single argument.
Signed-off-by: Jay Soffian <jaysoffian@gmail.com>
---
perl/Git.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
Show changes to perl/Git.pm +2 −2
diff --git a/perl/Git.pm b/perl/Git.pm
index 8392a68..e9f8c9c 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -1010,8 +1010,8 @@ sub _temp_cache {
my $temp_fd = \$TEMP_FILEMAP{$name};
if (defined $$temp_fd and $$temp_fd->opened) {
if ($TEMP_FILES{$$temp_fd}{locked}) {
- throw Error::Simple("Temp file with moniker '",
- $name, "' already in use");
+ throw Error::Simple("Temp file with moniker '" .
+ $name . "' already in use");
}
} else {
if (defined $$temp_fd) {
--
1.6.1.77.g81ea1
Jay Soffian