diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-08-02 22:01:04 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:31:00 -0500 |
commit | 304e3dfb661128c237d36c53d6ce4d93cf90f801 (patch) | |
tree | 6e152fdb8a687d2e61a634967bdce91e96bd45a7 /source4/build/pidl/Parse/Pidl/Util.pm | |
parent | 50468b3dfeafb086b7b87efab25c92c167750378 (diff) | |
download | samba-304e3dfb661128c237d36c53d6ce4d93cf90f801.tar.gz samba-304e3dfb661128c237d36c53d6ce4d93cf90f801.tar.bz2 samba-304e3dfb661128c237d36c53d6ce4d93cf90f801.zip |
r8953: Move a few utility functions
(This used to be commit 732db744b287be71781b7577933bc54a0724f78c)
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Util.pm')
-rw-r--r-- | source4/build/pidl/Parse/Pidl/Util.pm | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Util.pm b/source4/build/pidl/Parse/Pidl/Util.pm index b98b7bca00..8854be9d74 100644 --- a/source4/build/pidl/Parse/Pidl/Util.pm +++ b/source4/build/pidl/Parse/Pidl/Util.pm @@ -53,41 +53,6 @@ sub FlattenHash($) } ##################################################################### -# return the modification time of a file -sub FileModtime($) -{ - my($filename) = shift; - return (stat($filename))[9]; -} - -##################################################################### -# read a file into a string -sub FileLoad($) -{ - my($filename) = shift; - local(*INPUTFILE); - open(INPUTFILE, $filename) || return undef; - my($saved_delim) = $/; - undef $/; - my($data) = <INPUTFILE>; - close(INPUTFILE); - $/ = $saved_delim; - return $data; -} - -##################################################################### -# write a string into a file -sub FileSave($$) -{ - my($filename) = shift; - my($v) = shift; - local(*FILE); - open(FILE, ">$filename") || die "can't open $filename"; - print FILE $v; - close(FILE); -} - -##################################################################### # a dumper wrapper to prevent dependence on the Data::Dumper module # unless we actually need it sub MyDumper($) |