Changeset 8947 for trunk/PS-IPP-Metadata-Config/Build.PL

Timestamp:

Sep 25, 2006, 12:05:51 PM (20 years ago)

Author:

jhoblitt

Message:

fix Build.PL so the parser is only regenerated when the grammar has been changed

File:

• trunk/PS-IPP-Metadata-Config/Build.PL (modified) (2 diffs)

trunk/PS-IPP-Metadata-Config/Build.PL

@@ -4 +4 @@
 my $class = Module::Build->subclass(code => <<'EOF');
 use File::Copy;
+use File::stat;
+
+my $grammar = "config_grammar.txt";
+my $parser  = "lib/PS/IPP/Metadata/Parser.pm";
 
 sub ACTION_code {
@@ -10 +14 @@
     $self->SUPER::ACTION_code(@_);
 
-    system("perl -MParse::RecDescent - config_grammar.txt PS::IPP::Metadata::Parser") == 0
-        or die "Parse::RecDecent code gen failed: $?";
-    move("Parser.pm", "lib/PS/IPP/Metadata/Parser.pm")
-        or die "move failed: $!";
+    if (stat($grammar)->mtime > stat($parser)->mtime) {
+        system("perl -MParse::RecDescent - $grammar PS::IPP::Metadata::Parser") == 0
+            or die "Parse::RecDecent code gen failed: $?";
+        move("Parser.pm", $parser) or die "move failed: $!";
+    }
 }
 EOF