Fix return value of loadvcs

* scripts/dpkg-source.pl (loadvcs): Don't return a
true value if the require failed.

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index b33268e9004e4cf3185f868b625f527533d3c339..7ad4ccb8f32415ece229108d31b3828bd7b04f70 100755 (executable)
--- 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;
 }