| … | |
… | |
| 196 | package Urlader; |
196 | package Urlader; |
| 197 | |
197 | |
| 198 | use common::sense; |
198 | use common::sense; |
| 199 | |
199 | |
| 200 | BEGIN { |
200 | BEGIN { |
| 201 | our $VERSION = '0.2'; |
201 | our $VERSION = '1.0'; |
| 202 | |
202 | |
| 203 | use XSLoader; |
203 | use XSLoader; |
| 204 | XSLoader::load __PACKAGE__, $VERSION; |
204 | XSLoader::load __PACKAGE__, $VERSION; |
| 205 | } |
205 | } |
| 206 | |
206 | |
| … | |
… | |
| 254 | will be created if necessary). If C<$exclusive> is true, then it tries to |
254 | will be created if necessary). If C<$exclusive> is true, then it tries to |
| 255 | acquire an exclusive lock, otherwise the lock will be shared. If C<$wait> |
255 | acquire an exclusive lock, otherwise the lock will be shared. If C<$wait> |
| 256 | is true, then it will wait until the lock can be acquired, otherwise it |
256 | is true, then it will wait until the lock can be acquired, otherwise it |
| 257 | only attempts to acquire it and returns immediately if it can't. |
257 | only attempts to acquire it and returns immediately if it can't. |
| 258 | |
258 | |
| 259 | If successful it returns a lock object - the lock will be given up |
259 | If successful it returns a lock object - the lock will be given up when |
| 260 | when the lock object is destroyed. |
260 | the lock object is destroyed or when the process exits (even on a crash) |
|
|
261 | and has a good chance of working on network drives as well. |
| 261 | |
262 | |
| 262 | If the lock could not be acquired, C<undef> is returned. |
263 | If the lock could not be acquired, C<undef> is returned. |
| 263 | |
264 | |
| 264 | This function will probably go awway in the future, but is provided to |
265 | This function is provided to assist applications that want to clean up old |
| 265 | assist applications that want to clean up old versions, see "TIPS AND |
266 | versions, see "TIPS AND TRICKS", below. |
| 266 | TRICKS", below. |
|
|
| 267 | |
267 | |
| 268 | =cut |
268 | =cut |
| 269 | |
269 | |
| 270 | 1; |
270 | 1; |
| 271 | |
271 | |
| … | |
… | |
| 275 | |
275 | |
| 276 | =over 4 |
276 | =over 4 |
| 277 | |
277 | |
| 278 | =item Gathering files |
278 | =item Gathering files |
| 279 | |
279 | |
| 280 | Gathering all the files needed for distribution cna be a big |
280 | Gathering all the files needed for distribution can be a big |
| 281 | problem. Right now, Urlader does not assist you in this task in any way, |
281 | problem. Right now, Urlader does not assist you in this task in any way, |
| 282 | however, just like perl source stripping, it is planned to unbundle the |
282 | however, just like perl source stripping, it is planned to unbundle the |
| 283 | relevant technology from B<staticperl> (L<http://staticperl.plan9.de>) for |
283 | relevant technology from B<staticperl> (L<http://staticperl.plan9.de>) for |
| 284 | use with this module. |
284 | use with this module. |
| 285 | |
285 | |
