Commit 9c81c3d4 authored by Xavier Guimard's avatar Xavier Guimard

Do not require perltidy

parent 2601c795
......@@ -5,12 +5,12 @@ use strict;
use Lemonldap::NG::Manager::Attributes;
use Lemonldap::NG::Manager::Tree;
use Lemonldap::NG::Manager::CTrees;
#use Lemonldap::NG::Manager;
use Data::Dumper;
use Regexp::Assemble;
use JSON;
use Getopt::Std;
use Perl::Tidy;
use IO::String;
my ( $run, %opts );
......@@ -192,10 +192,14 @@ $defaultAttr}
my $dst;
Perl::Tidy::perltidy(
source => IO::String->new($defaultAttr),
destination => \$dst
);
eval {
require Perl::Tidy;
Perl::Tidy::perltidy(
source => IO::String->new($defaultAttr),
destination => \$dst
);
};
$dst = $defaultAttr if($@);
open( F, "> $defaultValuesFile" ) or die($!);
print F $dst;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment