Changeset 16503 for util

Timestamp:

05/22/07 13:48:15 (18 months ago)

Author:

audreyt

Message:

* gen_prelude.pl: Do not precompile a module more than once..

Files:

• util/gen_prelude.pl (modified) (1 diff)

util/gen_prelude.pl

@@ -128 +128 @@
     # When module return values are specced, we can make this much
     # less hacky :-)
+    my %seen;
     for my $file (@{ $Config{precompile} }) {
+        next if $seen{$file}++; # Do not precompile duplicate entries
+
         my $module; # guess what to put in %*INC
         open my $ifh, $file or die "open: $file: $!";