equal
deleted
inserted
replaced
72 sub get_last_version($$) { |
72 sub get_last_version($$) { |
73 my ( $url, $search ) = @_; |
73 my ( $url, $search ) = @_; |
74 my @webside = (); |
74 my @webside = (); |
75 my $last_verbose = ""; |
75 my $last_verbose = ""; |
76 |
76 |
77 push @webside, split( "\n", get($url) ); |
77 my $side = get($url); |
|
78 |
|
79 return "can't get $url" if ( !$side ); |
|
80 |
|
81 push @webside, split( "\n", $side ); |
78 foreach (@webside) { |
82 foreach (@webside) { |
79 /$search/ or next; |
83 /$search/ or next; |
80 $last_verbose = $1 and last; |
84 $last_verbose = $1 and last; |
81 } |
85 } |
82 return $last_verbose if ($last_verbose); |
86 return $last_verbose if ($last_verbose); |