← Back to branch summary

~holger-seelig/titania/3.0

« back to all changes in this revision

Viewing changes to x3dtidy/run.pl

  • Committer: Holger Seelig
  • Date: 2017-01-31 05:07:29 UTC
  • Revision ID: holger.seelig@yahoo.de-20170131050729-mcb9l290ezhn7x7o
Incorporate x3dtidy and titania-info into Titania.

Show diffs side-by-side

added added

removed removed

Lines of Context:
x3dtidy/run.pl
1
 
#!/usr/bin/perl
2
 
# -*- Mode: Perl; coding: utf-8; tab-width: 3; indent-tabs-mode: t; c-basic-offset: 3 -*-
3
 
 
4
 
use strict;
5
 
use warnings;
6
 
use v5.10.0;
7
 
 
8
 
use File::Basename qw (dirname);
9
 
 
10
 
my $HOME         = $ENV{HOME};
11
 
my $PROJECT_DIR  = dirname $0;
12
 
my $SOLUTION_DIR = "$PROJECT_DIR/../";
13
 
 
14
 
chdir dirname $0;
15
 
 
16
 
$ENV {XDG_DATA_DIRS} = "$PROJECT_DIR/share:$ENV{XDG_DATA_DIRS}";
17
 
 
18
 
system "./x3dtidy", @ARGV;