首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 关于DESTROY问题

关于DESTROY问题

时间：2011-04-08

来源：互联网

本帖最后由 ace_fei 于 2011-04-08 17:31 编辑

今天用Hudson做dailyCI的时候，发现在编译失败退出时，Hudson还是判定BUILD SUCCESSFUL。
   
     我找到Hudson上调用的编译脚本，发现问题出在DESTROY函数里面。
   
     如果屏蔽DESTROY函数中的my $context = $self->fn();     最后exit status就为1， 否则就为0。
     
     我理解问题所在是因为，如果在DESTROY中执行 system或者反引号``命令的话，会改变exit status。
     不知道我这样理解是不是正确的？
  1. #!/usr/bin/perl
  2. package test;
  3. sub new()
  4. {
  5.     my $ref = shift;
  6.     my $class = ref($ref) || $ref;
  7.     my $self = {};
  8.     bless($self, $class);
  9.     return $self;
  10. }

  12. sub DESTROY()
  13. {
  14.      my $self = shift;
  15.      print "this is destroy\n";
  16.      my $context = $self->fn();
  17.      print $context;
  18. }

  20. sub fn()
  21. {
  22.      my $self = shift;
  23.      chdir "/home/fesu";
  24.      my $cs = `cat 1.pl`;
  25. }

  27. sub main()
  28. {
  29.     my $self = shift;

  31.     print "this is main\nexit 1\n";
  32.     exit 1;
  33. }

  35. package main;
  36. my $mytest = new test();
  37. $mytest->main();
复制代码

作者: ace_fei   发布时间: 2011-04-08

唉，试了下还真是这么个样子的，竟然 DESTROY 会修改程序的退出值， 有点儿意思，有空再研究研究

作者: socyno   发布时间: 2011-04-08

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net