[svn:parrot] r25012 - branches/revision/lib/Parrot

[jkeenan]

Author: jkeenan
Date: Sat Jan 19 16:29:08 2008
New Revision: 25012

Modified:
   branches/revision/lib/Parrot/Revision.pm

Log:
Only use cache during configuration; don't touch it during build.


Modified: branches/revision/lib/Parrot/Revision.pm
==============================================================================
--- branches/revision/lib/Parrot/Revision.pm    (original)
+++ branches/revision/lib/Parrot/Revision.pm    Sat Jan 19 16:29:08 2008
@@ -29,7 +29,7 @@
 
 sub _get_revision {
     my $revision;
-    if (-f $cache) {
+    if (-f $cache and ! -f 'Makefile') {
         eval {
             open my $FH, "<", $cache;
             chomp($revision = <$FH>);
@@ -40,7 +40,7 @@
 
     $revision = _analyze_sandbox();
 
-    unless (-f $cache) {
+    if (! -f $cache and ! -f 'Makefile') {
         eval {
             open my $FH, ">", $cache;
             print $FH "$revision\n";