Parent Directory | Revision Log | Patch
revision 515 by dpavlin, Wed Jul 21 16:17:46 2010 UTC | revision 516 by dpavlin, Wed Jul 21 18:50:47 2010 UTC | |
---|---|---|
# | Line 12 use once; | Line 12 use once; |
12 | sub mirror_file { | sub mirror_file { |
13 | my ( $url, $file ) = @_; | my ( $url, $file ) = @_; |
14 | ||
15 | return if ! once::first_time $url; | return unless once::first_time $file; |
16 | ||
17 | warn "mirror_file $url -> $file\n"; | warn "mirror_file $url -> $file\n"; |
18 | mirror( $url, $file ) | mirror( $url, $file ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |