Re^5: Can't call method "otherwise" without a package or object reference at

[ig]

It looks like you're missing a semicolon between the otherwise block and the die. It should be:

try {
     my ($k) = 2;
     throw sysAssert("test assert");
  } catch err with {
    my ($ex) = @_;
    print "caught by with\n";
    dPrt("warn"," with $ex");
  } otherwise {
    my ($ex) = @_;
    print "caught by otherwise \n";
    dPrt("warn","OTHERWISE:$ex");
  };
  die "got here";

[rpelak]

Whoops. yep. Had that in all the others, missed it on this one. But adding it didn't change the result.

[ikegami]

What do you get from perl -MO=Deparse,-p script.pl for the offending chunk?

[rpelak]

I'll admit I haven't run the deparse before... so I can't read it very well (at least for this try catch stuff... But For the code that was added simply to prove that otherwise is defined.

do {
        (my($k) = 2);
        'sysAssert'->throw('test assert')
    }->try('err'->catch(do {
        (my($ex) = @_);
        print("caught by with\n");
        dPrt('warn', " with $ex")
    }->with(do {
        (my($ex) = @_);
        print("caught by otherwise \n");
        dPrt('warn', "OTHERWISE:$ex")
    }->otherwise)));

For the original offending code that generates the error about can't call method "otherwise"... that I am trying to fix...

if (($pbOnDStarMachine == 1)) {
        (my($sComm) = "sudo dchown nhmgenda '$$this{'sFullPath'}'");
        do {
            libs::exec("$sComm")
        }->try('err'->catch(do {
            (my($ex) = @_);
            dPrt('warn', "$ex")
        }->with(do {
            (my($ex) = @_);
            dPrt('warn', "OTHERWISE:$ex")
        }->otherwise)));
        return('');
    }