"Fossies" - the Fresh Open Source Software Archive

Member "Tk-804.036/uninstall" (15 Nov 2013, 981 Bytes) of package /linux/misc/Tk-804.036.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #!/usr/local/bin/perl -w
    2 BEGIN {exec('perl5.002',$0,@ARGV)  unless ($] >= 5.002)}
    3 use Config;
    4 use Getopt::Long;
    5 
    6 $opt_perl = "";
    7 $opt_site = "";
    8 $opt_man  = "";
    9 
   10 GetOptions('site','perl','inc','man');
   11 
   12 my %dirs = ();
   13 
   14 
   15 sub maybe
   16 {
   17  foreach (@_)
   18   {
   19    $dirs{$_} = 0 if (defined($_) && -d $_ && !exists $dirs{$_});
   20   }
   21 }
   22 
   23 maybe($Config{'installarchlib'},$Config{'installprivlib'})  if ($opt_perl);
   24 maybe($Config{'installsitearch'},$Config{'installsitelib'}) if ($opt_site);
   25 
   26 my %done = ();
   27 my $dir;
   28 foreach $dir (keys %dirs)
   29  {
   30   my $file;
   31   foreach $file ('Tk.pm','Tk','auto/Tk')
   32    {
   33     my $path = "$dir/$file";
   34     next if (exists $done{$path});
   35     $done{$path} = 0;
   36     if (-f $path)
   37      {
   38       print "rm -f $path\n";
   39      }
   40     elsif (-d $path)
   41      {
   42       print "rm -rf $path\n";
   43      }
   44    }
   45  }
   46 
   47 if ($opt_man)
   48  {
   49   my $path;
   50   foreach $path (<$Config{'installman3dir'}/Tk::*.$Config{'man3ext'}>)
   51    {
   52     if (-f $path)
   53      {
   54       print "rm -f $path\n";
   55      }
   56    }
   57  }
   58