From fc69476ae0c61204a83b6a18f96f798684d8004d Mon Sep 17 00:00:00 2001
From: Steve McIntyre <steve@einval.com>
Date: Tue, 5 Jun 2018 23:44:47 +0100
Subject: Fix up chained new() calls

Shift out the first arg so we don't pollute the namespace of the
module underneath us.
---
 Perl/Local/VCS.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Perl')

diff --git a/Perl/Local/VCS.pm b/Perl/Local/VCS.pm
index 802688525a4..1dc5db0f0a3 100644
--- a/Perl/Local/VCS.pm
+++ b/Perl/Local/VCS.pm
@@ -44,12 +44,14 @@ sub new
 	if ( -d 'CVS' )
 	{
 		require Local::VCS_CVS;
+		shift;
 		return Local::VCS_CVS->new(@_);
 	}
 	# fall back to git
 	else
 	{
 		require Local::VCS_git;
+		shift;
 		return Local::VCS_git->new(@_);
 	}
 }    
-- 
cgit v1.2.3