From e33fa5face1410db529db30a6f59d8335f6f1918 Mon Sep 17 00:00:00 2001 From: Duncan Ferguson Date: Sat, 19 Dec 2009 17:20:53 +0000 Subject: [PATCH] Rename files to new locations --- ChangeLog => Changes | 0 {src => bin}/cscp | 0 src/cssh.pl => bin/cssh | 14 +++++++++----- 3 files changed, 9 insertions(+), 5 deletions(-) rename ChangeLog => Changes (100%) rename {src => bin}/cscp (100%) rename src/cssh.pl => bin/cssh (99%) diff --git a/ChangeLog b/Changes similarity index 100% rename from ChangeLog rename to Changes diff --git a/src/cscp b/bin/cscp similarity index 100% rename from src/cscp rename to bin/cscp diff --git a/src/cssh.pl b/bin/cssh similarity index 99% rename from src/cssh.pl rename to bin/cssh index f714906..9741839 100755 --- a/src/cssh.pl +++ b/bin/cssh @@ -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:+',