diff options
author | Daouda Lo <daouda@mandriva.com> | 2004-03-29 14:44:35 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2004-03-29 14:44:35 +0000 |
commit | aae028b9fe170781d92bbf9f587ba6b3c2b51e64 (patch) | |
tree | 85c1dcf9ee46c451f20bd6e6717ca707d5deee3d | |
parent | 099502258349f0d1c54ca2563c52d832458c33b9 (diff) | |
download | mgaonline-aae028b9fe170781d92bbf9f587ba6b3c2b51e64.tar mgaonline-aae028b9fe170781d92bbf9f587ba6b3c2b51e64.tar.gz mgaonline-aae028b9fe170781d92bbf9f587ba6b3c2b51e64.tar.bz2 mgaonline-aae028b9fe170781d92bbf9f587ba6b3c2b51e64.tar.xz mgaonline-aae028b9fe170781d92bbf9f587ba6b3c2b51e64.zip |
- remove not used functions
-rwxr-xr-x | mdkapplet | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -289,19 +289,6 @@ sub rpmvercmp { return 0; } } -sub isNewVersion { - my ($f, $d) = @_; - if (($f =~ /^[0-9\.]+$/) && ($d =~ /^[0-9\.]+$/)) { - while (1) { - my ($f_d, $f_l) = $f =~ /^\.?([^\.]+)(.*)$/ or return $f gt $d; - my ($d_d, $d_l) = $d =~ /^\.?([^\.]+)(.*)$/ or return $f gt $d; - return 1 if ($f_d > $d_d); - return 0 if ($f_d < $d_d); - ($f, $d) = ($f_l, $d_l); - } - } - return $f gt $d; -} sub cronUpdate { my ($to) = shift; $timeout = Glib::Timeout->add(60*60*1000, sub { |