diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2007-08-10 18:16:46 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2007-08-10 18:16:46 +0000 |
| commit | 26f80af0c0bc70d5c9ecc57c218b60a164296147 (patch) | |
| tree | 3adbed644a070547a0b01660ceb0beef816e1ebd /modules/Creator.pm | |
| parent | b798923971875e804264728d881e68700bcffad7 (diff) | |
| download | MPC-26f80af0c0bc70d5c9ecc57c218b60a164296147.tar.gz | |
ChangeLogTag: Fri Aug 10 18:15:22 UTC 2007 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Creator.pm')
| -rw-r--r-- | modules/Creator.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/modules/Creator.pm b/modules/Creator.pm index 334bfc2b..8a5205ca 100644 --- a/modules/Creator.pm +++ b/modules/Creator.pm @@ -12,6 +12,7 @@ package Creator; use strict; use FileHandle; +use File::Compare; use Parser; @@ -1171,6 +1172,14 @@ sub compare_output { } +sub files_are_different { + my($self) = shift; + my($old) = shift; + my($new) = shift; + return !(-r $old && -s $new == -s $old && compare($new, $old) == 0); +} + + sub handle_scoped_end { #my($self) = shift; #my($type) = shift; |