[Bast-commits] r6551 - DBIx-Class/0.08/branches/run_file_against_storage/t/lib/DBICTest

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2009-06-08 21:49:14 +0000 (Mon, 08 Jun 2009)
New Revision: 6551

Modified:
   DBIx-Class/0.08/branches/run_file_against_storage/t/lib/DBICTest/AuthorCheck.pm
Log:
changed around the warning message in authorcheck.pm

Modified: DBIx-Class/0.08/branches/run_file_against_storage/t/lib/DBICTest/AuthorCheck.pm
===================================================================
--- DBIx-Class/0.08/branches/run_file_against_storage/t/lib/DBICTest/AuthorCheck.pm	2009-06-08 21:32:00 UTC (rev 6550)
+++ DBIx-Class/0.08/branches/run_file_against_storage/t/lib/DBICTest/AuthorCheck.pm	2009-06-08 21:49:14 UTC (rev 6551)
@@ -39,13 +39,9 @@
   
   if(not -d $root->subdir ('inc')) {
 	push @reasons, "Missing inc directory";
-  }
-  
-  if(not $mf_mtime) {
+  } elsif(not $mf_mtime) {
 	push @reasons, "Missing Makefile";
-  }
-
-  if($mf_mtime < $mf_pl_mtime) {
+  } elsif($mf_mtime < $mf_pl_mtime) {
 	push @reasons, "Makefile.PL is newer than Makefile";
   }
   
@@ -59,6 +55,16 @@
 ======================== FATAL ERROR ===========================
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+Reasons you received this message:
+
+EOE
+
+	foreach my $reason (@reasons) {
+		print STDERR "\t* $reason\n";
+	}
+
+	print STDERR <<'EOE';
+	
 We have a number of reasons to believe that this is a development
 checkout and that you, the user, did not run `perl Makefile.PL`
 before using this code. You absolutely _must_ perform this step,
@@ -80,14 +86,8 @@
 The DBIC team
 
 EOE
-
-	print STDERR "Reasons you received this message:\n\n";
-	foreach my $reason (@reasons) {
-		print STDERR "\t* $reason\n";
-	}
-	print STDERR "\n\n";
-
-    exit 1;
+    
+	exit 1;
   }
 }