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

Timestamp:

Sep 27, 2006, 6:20:58 PM (20 years ago)

Author:

jhoblitt

Message:

fix Build.PL script to not throw and error when $parser does not exist

File:

• trunk/PS-IPP-Metadata-Config/Build.PL (modified) (1 diff)

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

@@ -14 +14 @@
     $self->SUPER::ACTION_code(@_);
 
-    if (stat($grammar)->mtime > stat($parser)->mtime) {
+    if (!-e $parser || (stat($grammar)->mtime > stat($parser)->mtime)) {
         system("perl -MParse::RecDescent - $grammar PS::IPP::Metadata::Parser") == 0
             or die "Parse::RecDecent code gen failed: $?";