Sophie

Sophie

distrib > Mageia > 3 > i586 > media > core-release-src > by-pkgid > f1421651182d55e2fe8853a75193a1e4 > files > 2

perl-File-Rsync-0.430.0-7.mga3.src.rpm

--- 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>) {