#!/usr/bin/perl -w
use strict ;
use warnings ;
my $pbs = `which pbs` ;
chomp $pbs ;
my $pbs_lib_path = `pbs --display_pbs_lib_path` ;
my $pbs_plugins_path = `pbs --display_pbs_plugin_path` ;
my @extra_modules = 
        qw(
        PBS::WatchClient PBS::Prf PBS::Warp1_5 PBS::ProgressBar
        Devel::Depend::Cl 
        Devel::Depend::Cpp 
        Pod::Simple::HTMLBatch 
        Devel::Size 
        File::Slurp 
        ) ;
my $extra_modules = '-M ' . join(' -M ', @extra_modules) ;
print "Running command: 'pp -P -d -c -o ./tmp/pbs $pbs -a '$pbs_lib_path/;/PBSLIB/' -a '$pbs_plugins_path/;/PBSPLUGIN/' $extra_modules'\n" ;
`pp -P -d -c -o ./tmp/pbs $pbs -a '$pbs_lib_path/;/PBSLIB/' -a '$pbs_plugins_path/;/PBSPLUGIN/' $extra_modules` ;