--- makepm.PL 2005-06-24 23:56:33.000000000 +0200 +++ makepm.PL.new 2005-12-29 14:54:31.000000000 +0100 @@ -1,32 +1,5 @@ # makepm.PL -- Builds Rsync.pm from Rsync.in. -*- perl -*- -sub find_rsync { - my @dirs = map { s/^$/./; $_ } split (':', $ENV{PATH}); - push (@dirs, qw(/usr/local/bin /usr/bin /opt/bin)); - for my $dir (@dirs) { - next unless -d $dir; - next unless -x "$dir/rsync"; - return "$dir/rsync"; - } -} -$|=1; -$RSYNC=&find_rsync; -print <<'EOT'; - -File::Rsync needs to know the path to the rsync binary. This path is encoded -in the installed module as the default path to rsync (it can be overridden -at runtime). Please enter the full path to the rsync program or just hit -Enter if the guess is correct. (If you always want the module to depend on -the $PATH environment variable at runtime, just set the path to 'rsync' -(this is not recommended)). - -EOT -$RSYNC||='/usr/local/bin/rsync'; -print "Path to rsync [$RSYNC]: "; -my $ans=<STDIN>; -chomp $ans; -$RSYNC=$ans || $RSYNC; -$RSYNC=~s/\\/\\\\/g; -$RSYNC=~s/\'/\\\'/g; +$RSYNC='/usr/bin/rsync'; open IN,'config.in' or die "Cannot read config.in: $!\n"; open OUT,'>config.pm' or die "Cannot write config.pm: $!\n"; while (<IN>) {