Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / install.pm

package Tk::install;
require Exporter;

use vars qw($VERSION @EXPORT);
$VERSION = '3.012'; # $Id: //depot/Tk8/Tk/install.pm#12 $

use base  qw(Exporter);
@EXPORT = qw(installbin);

use Config;

sub installbin
{
my $prog  = shift(@ARGV);
my $start = $Config{'startperl'};
my $perl  = $Config{'perl'} || 'perl';
$start =~ s/$perl$/$prog/;
while (($src,$dst) = splice(@ARGV,0,2))
 {
  open(SRC,"<$src") || die "Cannot open $src:$!";
  my $line = <SRC>;
  $line =~ s/^#!\s*\S+/$start/;
  warn $line;
  chmod(0755,$dst) if (-f $dst);
  open(DST,">$dst") || die "Cannot open $dst:$!";
  print "installbin $src => $dst\n";
  do
   {
    print DST $line;
   } while (defined($line = <SRC>));
  close(SRC);
  close(DST);
  chmod(0555,$dst);
 }
}

1;