From b7e829edf17da73281e8a1ca3ff6a3209a7f2fb6 Mon Sep 17 00:00:00 2001
From: Frank Lichtenheld <djpig@debian.org>
Date: Sun, 10 Feb 2008 21:22:52 +0100
Subject: [PATCH] Fix return value of loadvcs

* scripts/dpkg-source.pl (loadvcs): Don't return a
true value if the require failed.
---
 scripts/dpkg-source.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index b33268e9..7ad4ccb8 100755
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -209,7 +209,8 @@ sub loadvcs {
 	my $vcs = shift;
 	my $mod = "Dpkg::Source::VCS::$vcs";
 	eval qq{require $mod};
-	return $@ || import $mod;
+	return if $@;
+	return import $mod;
 }
 
 
-- 
2.39.5