Opened by Brenner at 2009-02-02 12:56
Das "die" kannst du durch ein "warn" oder ein "croak" (aus CGI::Carp) ersetzen und das mit dem Rückgabewert erledigst du halt ueber eine Variable, so in der Art wuerde ich das angehen (ungetestet):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package Test;
sub test {
my $return_value = 1;
open(FH, '<', 'test.txt') or error_msg(\$return_value) ; #ja, man soll variablen als FH nehmen
close FH;
return $return_value;
}
sub error_msg {
my $r_value = shift;
$$r_value = 0;
warn $!;
}
1;