diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-10-07 23:13:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-10-07 23:13:24 +0000 |
| commit | 5028733dd335023943528e119789f431364572e5 (patch) | |
| tree | c5546e3eb333ebe5366e0fe0c445ddf77ceb879c | |
| parent | 6a0a4e3a5a0bd7a21f09c400f156b725f10db932 (diff) | |
| download | drakx-5028733dd335023943528e119789f431364572e5.tar drakx-5028733dd335023943528e119789f431364572e5.tar.gz drakx-5028733dd335023943528e119789f431364572e5.tar.bz2 drakx-5028733dd335023943528e119789f431364572e5.tar.xz drakx-5028733dd335023943528e119789f431364572e5.zip | |
better error reporting
| -rwxr-xr-x | images/make_boot_img | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/images/make_boot_img b/images/make_boot_img index c6bf57436..08adbb697 100755 --- a/images/make_boot_img +++ b/images/make_boot_img @@ -4,6 +4,7 @@ use Config; use FileHandle; use MDK::Common; use POSIX; +use Carp; Config->import; my ($arch) = $Config{archname} =~ /(.*?)-/; @@ -25,7 +26,8 @@ if ($>) { } sub __ { print @_, "\n"; system(@_) } -sub _ { __ @_; $? and die } +sub _ { __ @_; $? and croak "'" . join(' ', @_) . "failed ($?)\n" } + sub mke2fs { my ($f) = @_; _ "/sbin/mke2fs -q -m 0 -F -s 1 $f"; |