Rename files to new locations

This commit is contained in:
Duncan Ferguson 2009-12-19 17:20:53 +00:00
parent 8c78ee5abe
commit e33fa5face
3 changed files with 9 additions and 5 deletions

View file

View file

View file

@ -1,4 +1,4 @@
# - perl *-
#!/usr/bin/perl
# $Id$
#
# Script:
@ -50,13 +50,11 @@
# http://www.opensource.org/licenses/gpl-license.php
#
############################################################################
my $VERSION = '3.28';
### all use statements ###
use strict;
use warnings;
use 5.006_000;
use 5.008_004;
use Pod::Usage;
use Getopt::Long qw(:config no_ignore_case bundling no_auto_abbrev);
use POSIX qw/:sys_wait_h strftime mkfifo/;
@ -79,10 +77,16 @@ use Carp;
use Sys::Hostname;
use English;
use FindBin;
use lib $FindBin::Bin.'/../lib';
use App::ClusterSSH;
### all global variables ###
my $scriptname = $0;
$scriptname =~ s!.*/!!; # get the script name, minus the path
my $VERSION=$App::ClusterSSH::VERSION;
# Command line options list
my @options_spec = (
'debug:+',