ext/Devel/PPPort/ppport_h.PL

   1 package Devel::PPPort;
   2 sub bootstrap {};
   3 require "PPPort.pm";
   4 WriteFile("ppport.tmp");
   5 {
   6     local $/;
   7     my $old = '';
   8     my $new = '';
   9     $old = <FH> if open(FH, "ppport.h");        close FH;
  10     $new = <FH> if open(FH, "ppport.tmp");      close FH;
  11     if ($old ne $new) {
  12         unlink("ppport.h");
  13         rename("ppport.tmp", "ppport.h");
  14     }
  15     unlink("ppport.tmp");
  16 }
  17