File: makepm.PL

package info (click to toggle)
libfile-rsync-perl 0.42-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 116 kB
  • ctags: 18
  • sloc: perl: 497; makefile: 50
file content (42 lines) | stat: -rw-r--r-- 1,292 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
# 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;

#hardcode for non-interactive build
$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>) {
   if (/^(\s*rsync_path\s*=>)/) { print OUT "$1 '$RSYNC',\n" }
   else                                  { print OUT }
}
close IN;
close OUT;