view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/RestoreProject.pl  view on Meta::CPAN

my $config_superflows         = config_superflows->new();
my $control                   = control->new();

=head2

  Internal definitions
  
=cut

my $success_counter  = 0;
my $current_username = getpwuid($<);
my $prog_name        = 'Project';
my $home_directory;
my $untar_options         = '-xzvf';
my $default_tutorial_name = 'Servilleta';

my $tutorial_name = '';

my $false          = 0;
my $true           = 1;
my $PROJECT_exists = $false;