r509: * dh_perl: don't gripe if there is no substvar file. Closes: #133140

[debhelper.git] / Debian / Debhelper / Dh_Lib.pm

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index ea4046a3ba12334f7467bfd156fcaf9c72540ec1..a909335bec72ee5c6e4d2a78860896bc36ec69f8 100644 (file)
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -367,8 +367,10 @@ sub delsubstvar {
        my $ext=pkgext($package);
        my $substvarfile="debian/${ext}substvars";
 
-       complex_doit("grep -v '^${substvar}=' $substvarfile > $substvarfile.new || true");
-       doit("mv", "$substvarfile.new","$substvarfile");
+       if (-e $substvarfile) {
+               complex_doit("grep -v '^${substvar}=' $substvarfile > $substvarfile.new || true");
+               doit("mv", "$substvarfile.new","$substvarfile");
+       }
 }
                                
 # Adds a dependency on some package to the specified