equal
deleted
inserted
replaced
36 sub get_stable_release($$); |
36 sub get_stable_release($$); |
37 sub report($$); |
37 sub report($$); |
38 sub version($$); |
38 sub version($$); |
39 |
39 |
40 my $ME = basename $0; |
40 my $ME = basename $0; |
41 my $VERSION = "2.5"; |
41 my $VERSION = "2.9"; |
42 |
42 |
43 my %opt = ( |
43 my %opt = ( |
44 url => "http://www.debian.org/releases/stable/index.html", |
44 url => "https://www.debian.org/releases/stable/index.html", |
45 search => qr/<p>Debian\b.*?([\d.]+)/, |
45 search => qr/<p>Debian\b.*?([\d.]+)/, |
46 file => "/etc/debian_version", |
46 file => "/etc/debian_version", |
47 ok => 0 |
47 ok => 0 |
48 ); |
48 ); |
49 |
49 |