I would suggest changing the structure of the program slightly - factor out the code from the else condition and then rather than die you can use an additional if ... else in the first condition. If the condition is true continue to execute the existing code else go the error handling subroutine.

/J\

I am testing if the iso exists and is small enough, I don't understand what the next condition to test against would be?

Maybe something like:

system (burning command);

if (my $cdburn = $?;) {
     carry on with code
}
else {
     errors
}
[download]

Walking the road to enlightenment... I found a penguin and a camel on the way.....
Fancy a yourname@perl.me.uk? Just ask!!!

Or how about a DIE signal handler?

#!/usr/bin/perl

$SIG{__DIE__} = sub {
      open my $h, ">>", "fatal.log";
       print $h scalar localtime, ": @_";
       close $h;
  die @_;
};

die "ouch $!\n";


[download]

I think I'll take the simple approach and restructure my program like gellyfish recommends, but thanks though.

The above looks a little tricky, as I am struggling with a simple if/else ;-)

Walking the road to enlightenment... I found a penguin and a camel on the way.....
Fancy a yourname@perl.me.uk? Just ask!!!

I've dealt with code that uses goto for error handling.

Suffice it to say that there is a reason that exception systems were invented...

use CGI::Carp qw(fatalsToBrowser);

# rest of script

my $CMD="some command";

 system("$CMD");
 ( $? == 0 ) ? print "job success\n" : print "job failure\n";
[download]

I love the look of this, because I really wanted to make the code look cleaner and I have been looking for a chance to use the Ternary Conditional Operator.

Could I swap out the print statements for subroutine calls and move the success and failure things to something like &failure and &success?

Something like:

my $CMD="some command";

 system("$CMD");
 ( $? == 0 ) ? &success($time, $hostname) : &failure($time, $hostname)
+;
[download]

and then shift these scalars inside the subroutines?

Thanks.

Walking the road to enlightenment... I found a penguin and a camel on the way.....
Fancy a yourname@perl.me.uk? Just ask!!!

I'll answer my own question ;-)

I tried it and it worked!

For your info:

Read more... (7 kB)
Walking the road to enlightenment... I found a penguin and a camel on the way.....
Fancy a yourname@perl.me.uk? Just ask!!!