#!/usr/bin/perl package test; sub new() { my $ref = shift; my $class = ref($ref) || $ref; my $self = {}; bless($self, $class); return $self; } sub DESTROY() { my $self = shift; print "this is destroy/n"; my $context = $self->fn(); print $context; } sub fn() { my $self = shift; chdir "/home/fesu"; my $cs = `cat 1.pl`; } sub main() { my $self = shift; print "this is main/nexit 1/n"; exit 1; } package main; my $mytest = new test(); $mytest->main();

這段程式碼中， 如果遮蔽DESTROY函式中的my $context = $self->fn();     最後exit status就為1， 否則就為0。
     
chinaunix上有位 socyn 提到：

在 perlobj 中找到這麼一段，應該就是原因吧

Since DESTROY methods can be called at unpredictable times, it is important that you localise any global variables that the method may update. In particular, localise

我也在model_perl上也看到了一句類似的話，說DESTROY方法可能重置[email protected]

可以通過

local $@; eval {...}; if (my $exception = $@) {...}

立刻複製[email protected]可以預留它的內容。

要想保證退出狀態，我們也可以定義一個$self->{error}，在init方法（該方法在new中呼叫，$self->init();）中初始化它為0。然後在exit 1；之前將它賦值為1，最後在DESTROY方法的最後，返回給$? = $self->{error};