home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / install.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  644 b   |  33 lines
  1. package Tk::install;
  2. require Exporter;
  3. @ISA = qw(Exporter);
  4. @EXPORT = qw(installbin);
  5.  
  6. use Config;
  7.  
  8. sub installbin
  9. {
  10.  my $prog  = shift(@ARGV);
  11.  my $start = $Config{'startperl'};
  12.  my $perl  = $Config{'perl'};
  13.  $start =~ s/$perl$/$prog/;
  14.  while (($src,$dst) = splice(@ARGV,0,2))
  15.   {
  16.    open(SRC,"<$src") || die "Cannot open $src:$!";
  17.    my $line = <SRC>;
  18.    $line =~ s/^#!\s*\S+/$start/;
  19.    chmod(0755,$dst) if (-f $dst);
  20.    open(DST,">$dst") || die "Cannot open $dst:$!";
  21.    print "installbin $src => $dst\n";
  22.    do 
  23.     {
  24.      print DST $line;
  25.     } while (defined($line = <SRC>));
  26.    close(SRC);
  27.    close(DST);
  28.    chmod(0555,$dst);
  29.   }
  30. }
  31.  
  32. 1;
  33.