Changeset 17649 for trunk/DataStore/scripts/dsrootls
- Timestamp:
- May 12, 2008, 5:12:52 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/DataStore/scripts/dsrootls (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/DataStore/scripts/dsrootls
r17637 r17649 3 3 # Copyright (C) 2006-2008 Joshua Hoblitt 4 4 # 5 # $Id: dsrootls,v 1. 2 2008-05-12 22:04:53jhoblitt Exp $5 # $Id: dsrootls,v 1.3 2008-05-13 03:12:52 jhoblitt Exp $ 6 6 7 7 use strict; … … 40 40 ); 41 41 42 die "request failed" unless defined $response; 43 die "request failed: ", $response->status_line unless $response->is_success; 42 unless (defined $response or $response->is_success) { 43 warn "request failed: ", $response->status_line; 44 exit($response->code - 300); 45 } 44 46 45 47 # file retreival succeed
Note:
See TracChangeset
for help on using the changeset viewer.
