diff options
author | Steve McIntyre <steve@einval.com> | 2018-06-05 23:44:47 +0100 |
---|---|---|
committer | Steve McIntyre <steve@einval.com> | 2018-06-05 23:44:47 +0100 |
commit | fc69476ae0c61204a83b6a18f96f798684d8004d (patch) | |
tree | 4ba61ce12108d62b4dbb03412112c264a45897c8 /Perl | |
parent | 92a4991484d95f30deb7620d783378cff51041f6 (diff) |
Fix up chained new() calls
Shift out the first arg so we don't pollute the namespace of the
module underneath us.
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Local/VCS.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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(@_); } } |