Codebase list libnetsds-util-perl / 8cded75
Unfuzz pod-spelling patch, and extend dep3 header. Jonas Smedegaard 5 years ago
1 changed file(s) with 17 addition(s) and 15 deletion(s). Raw diff Collapse all Expand all
11 Author: Damyan Ivanov <dmn@debian.org>
22 Forwarded: https://rt.cpan.org/Ticket/Display.html?id=105124
33 Bug: https://rt.cpan.org/Ticket/Display.html?id=105124
4
4 Last-Update: 2019-02-22
5 ---
6 This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
57 --- a/lib/NetSDS/Util/File.pm
68 +++ b/lib/NetSDS/Util/File.pm
7 @@ -72,7 +72,7 @@ our @EXPORT = qw(
9 @@ -72,7 +72,7 @@
810
911 =item B<is_handle($var)> - check if argument is a file handle
1012
1315
1416 Returns: 1 if it's file handle or undef otherwise
1517
16 @@ -103,7 +103,7 @@ sub is_handle {
18 @@ -103,7 +103,7 @@
1719
1820 =item B<reset_handle($fh)> - reset file handle
1921
2224
2325 Returns: nothing
2426
25 @@ -137,7 +137,7 @@ sub reset_handle {
27 @@ -137,7 +137,7 @@
2628
2729 =item B<file_open($file)> - open file
2830
3133
3234 Returns: file handle
3335
34 @@ -181,7 +181,7 @@ sub file_open {
36 @@ -181,7 +181,7 @@
3537
3638 =item B<file_read($file)> - read file to scalar
3739
4042
4143 Returns: scalar content of file
4244
43 @@ -216,7 +216,7 @@ sub file_read {
45 @@ -216,7 +216,7 @@
4446
4547 =item B<file_write($file, $data)> - write scalar data to file
4648
4951
5052 Returns: length of written data or undef in case of error
5153
52 @@ -247,7 +247,7 @@ sub file_write {
54 @@ -247,7 +247,7 @@
5355
5456 =item B<file_copy($in_file, $out_file)> - copy file
5557
5860
5961 Returns:
6062
61 @@ -275,7 +275,7 @@ sub file_copy {
63 @@ -275,7 +275,7 @@
6264
6365 =item B<file_move($in_file, $out_file)> - move file
6466
6769
6870 Returns: 1 or undef
6971
70 @@ -326,7 +326,7 @@ sub file_temp {
72 @@ -326,7 +326,7 @@
7173
7274 =item B<dir_create($dir)> - create directory with parents
7375
7678
7779 Returns: directory name or undef
7880
79 @@ -355,7 +355,7 @@ sub dir_create {
81 @@ -355,7 +355,7 @@
8082
8183 =item B<dir_delete($dir)> - remove directory recursive
8284
8587
8688 Returns: dir name or undef if error
8789
88 @@ -383,7 +383,7 @@ sub dir_delete {
90 @@ -383,7 +383,7 @@
8991
9092 =item B<dir_read($dir, $ext)> - read files list from catalog
9193
9496
9597 Returns: list of files in catalog
9698
97 @@ -416,7 +416,7 @@ sub dir_read {
99 @@ -416,7 +416,7 @@
98100
99101 =item B<dir_read_recursive($dir, $ext, [$res])> - read all files list recursive
100102
103105
104106 Returns: list of files with extension from parameters
105107
106 @@ -457,7 +457,7 @@ sub dir_read_recursive {
108 @@ -457,7 +457,7 @@
107109
108110 =item B<exec_external($prog, [$param1, ... $paramN])> - execute external program
109111
114116
115117 --- a/lib/NetSDS/Util/Misc.pm
116118 +++ b/lib/NetSDS/Util/Misc.pm
117 @@ -141,7 +141,7 @@ sub make_uuid {
119 @@ -141,7 +141,7 @@
118120
119121 =item B<csv_num($num)> - format number for CSV
120122
123125
124126 Returns: CSV formatted
125127
126 @@ -160,7 +160,7 @@ sub csv_num {
128 @@ -160,7 +160,7 @@
127129
128130 =item B<format_msisdn($msisdn)> - format MSISDN
129131