From 87206f3ef535d1d7bbdec0ab2455ea05073156c2 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 11 Mar 2005 17:12:11 +0000 Subject: Use library functions --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index aaca79297..8c9536821 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1013,7 +1013,7 @@ sub install_urpmi { } #- touch a MD5SUM file - if (open my $F, ">", "$::prefix/var/lib/urpmi/MD5SUM") { close $F } + eval { output("$::prefix/var/lib/urpmi/MD5SUM", '') }; #- build synthesis file if there are still not existing (ie not copied from mirror). if (-s "$::prefix/var/lib/urpmi/synthesis.hdlist.$name.cz" <= 32) { -- cgit v1.2.1