Parent Directory | Revision Log | Patch
revision 4 by mszeredi, Thu Nov 11 14:44:15 2004 UTC | revision 18 by dpavlin, Wed Dec 21 15:33:37 2005 UTC | |
---|---|---|
# | Line 35 is(-z "$a", -z "$b", '-z'); # 27 | Line 35 is(-z "$a", -z "$b", '-z'); # 27 |
35 | my (@astat, @bstat); | my (@astat, @bstat); |
36 | @astat = stat("$a"); | @astat = stat("$a"); |
37 | @bstat = stat("$b"); | @bstat = stat("$b"); |
38 | # dev and inode can legally change | # dev, inode and blksize can legally change |
39 | shift(@astat); shift(@astat); | @astat = @astat[2..10,12]; |
40 | shift(@bstat); shift(@bstat); | @bstat = @bstat[2..10,12]; |
41 | is(join(" ",@astat),join(" ",@bstat),"stat()"); | is(join(" ",@astat),join(" ",@bstat),"stat()"); |
42 | `rm -f $a`; | `rm -f $a`; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |