Misc bugfixes

* scripts/Dpkg/Source/Package/V3_0/git.pm (can_build): Add the missing
can_build() function. It checks if the source directory contains a .git
directory.
* scripts/Dpkg/Source/Patch.pm (get_type): Fix format specifier.

diff --git a/scripts/Dpkg/Source/Package/V3_0/git.pm b/scripts/Dpkg/Source/Package/V3_0/git.pm
index 73171a6a5b208ffb8228aae09db8ba2bf06916ee..1b4bef86a2455c2f464e199592340c83328ee9aa 100644 (file)
--- a/scripts/Dpkg/Source/Package/V3_0/git.pm
+++ b/scripts/Dpkg/Source/Package/V3_0/git.pm
@@ -104,6 +104,11 @@ sub read_git_config {
        return \%ret;
 }
 
+sub can_build {
+    my ($self, $dir) = @_;
+    return (-d "$dir/.git", _g("doesn't contain a git repository"));
+}
+
 sub do_build {
     my ($self, $dir) = @_;
     my @argv = @{$self->{'options'}{'ARGV'}};

diff --git a/scripts/Dpkg/Source/Patch.pm b/scripts/Dpkg/Source/Patch.pm
index 2135be0d1be5b9b2726253f173e91cdd7106666f..c186212fee435fbfc2e5bebae717141ede23f5df 100644 (file)
--- a/scripts/Dpkg/Source/Patch.pm
+++ b/scripts/Dpkg/Source/Patch.pm
@@ -410,7 +410,7 @@ sub get_type {
     } else {
         -f _ && return _g("plain file");
         -d _ && return _g("directory");
-        -l _ && return sprintf(_g("symlink to %"), readlink($file));
+        -l _ && return sprintf(_g("symlink to %s"), readlink($file));
         -b _ && return _g("block device");
         -c _ && return _g("character device");
         -p _ && return _g("named pipe");