[E-p-i-c-commits] org.epic.perleditor/perlutils/perltidy perltidy,NONE,1.1

[<lue...@us...>]

Update of /cvsroot/e-p-i-c/org.epic.perleditor/perlutils/perltidy
In directory sc8-pr-cvs1:/tmp/cvs-serv13581/perlutils/perltidy

Added Files:
	perltidy 
Log Message:
Initial version

--- NEW FILE: perltidy ---
#!/usr/bin/perl
package main;

use Perl::Tidy;

my $arg_string = undef;

# give Macs a chance to provide command line parameters
if ($^O =~ /Mac/) {
    $arg_string =
      MacPerl::Ask( 'Please enter @ARGV (-h for help)',
        defined $ARGV[0] ? "\"$ARGV[0]\"" : "" );
}

Perl::Tidy::perltidy(argv => $arg_string);

__END__

=head1 NAME
[...2365 lines suppressed...]
  http://perltidy.sourceforge.net

=head1 COPYRIGHT

Copyright (c) 2000-2003 by Steve Hancock

=head1 LICENSE

This package is free software; you can redistribute it and/or modify it
under the terms of the "GNU General Public License".

Please refer to the file "COPYING" for details.

=head1 DISCLAIMER

This package is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the "GNU General Public License" for more details.