#!/usr/bin/perl 

use strict;
use warnings;

$| = 1;

unless ( $^O eq 'MSWin32' or $ENV{PADRE_DEV} or grep /^(-h|--help)$/, @ARGV) {  
    exit 0 if fork();
}

require threads;
require threads::shared;

$ENV{PADRE_PAR_PATH} = $ENV{PAR_TEMP}||'';

if( $^V ge v5.1 ) { # $PERL_VERSION
    # This is needed for Padre::Plugin::Perl6 and Syntax::Highlight::Perl6
    # This will be removed once this STD.pm bug is fixed.
    eval "use STD;";
    if (not $@) { # $EVAL_ERROR
        print "Loaded STD.pm for Padre::Plugin::Perl6\n";
    }
}

require Padre;
my $app = Padre->new;
$app->run;

# Copyright 2008 Gabor Szabo.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.
