From: Tony Cook <tony@develop=help.com>
Date: Tue, 27 Jun 2006 14:38:10 +0000 (+0000)
Subject: handle a missing Changes file when checking if we need to generate one.
X-Git-Tag: Imager-0.51_01~1
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/13b24d958b4ad1da1c1c4946c6cc43a3cbc22deb

handle a missing Changes file when checking if we need to generate one.
---

diff --git a/Makefile.PL b/Makefile.PL
index 795c64c7..d9b09e99 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -871,20 +871,20 @@ YAML
 # this is intended to only be running on the development
 # machines
 sub distcheck {
-  if (-e '.svn' && -e 'Changes') {
+  if (-e '.svn') {
     # update Changes if needed
     my $write_changes;
     # get the last revision from Changes
     if (open CHANGES, "< Changes") {
       <CHANGES>;
       my ($changes_rev) = <CHANGES> =~ /^r(\d+)/
-	or die "Could not get revision from Changes";
+	or ++$write_changes;
 
       my ($revision) = grep s/^Revision: //, `svn info`
-	or die "Could not get Revision line";
+	or die "Could not get Revision from svn";
       chomp $revision;
 
-      $write_changes = $changes_rev != $revision-1;
+      $write_changes ||= $changes_rev != $revision;
       close CHANGES;
     }
     else {