Load libata prior udev at installer because some SATA doesnt autoload it

[people/pmueller/ipfire-2.x.git] / src / pakfire / pakfire

diff --git a/src/pakfire/pakfire b/src/pakfire/pakfire
index 19c090486c709f82658ce85239a83a215edec6fd..a9981fd8325f7f867d334d405b48a9895097237f 100644 (file)
--- a/src/pakfire/pakfire
+++ b/src/pakfire/pakfire
@@ -19,6 +19,11 @@
 #                                                                             #
 ###############################################################################
 
+       ### Clean up our environment
+       #
+       delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
+       $< = $>;
+
        require "/opt/pakfire/lib/functions.pl";
        
        my $interactive = 1;
@@ -45,7 +50,7 @@
        #
        if ( $0 =~ /pakfire-update$/ ) {
                &Pakfire::message("CRON INFO: Running an update");
-               my $random = int(rand(3600));
+               my $random = int(rand(60));
                &Pakfire::logger("CRON INFO: Waiting for $random seconds.");
                sleep($random);
                $ARGV[0] = "update";