diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-01-23 10:51:29 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-01-23 10:52:23 +0000 |
commit | 3974d06f27877c075f99bc9560d1cd6f23ff9e4e (patch) | |
tree | b55e464d93fbba3388b8f9f40ec0aef1516eaec6 /regen/regen_lib.pl | |
parent | ce716c52d393ac84495b7b8f262c39ecc5447cc9 (diff) | |
download | perl-3974d06f27877c075f99bc9560d1cd6f23ff9e4e.tar.gz |
Move the duplicated subroutine tab() into regen_lib.pl
Diffstat (limited to 'regen/regen_lib.pl')
-rw-r--r-- | regen/regen_lib.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl index 90f10b57bc..86d3b6c518 100644 --- a/regen/regen_lib.pl +++ b/regen/regen_lib.pl @@ -144,4 +144,10 @@ sub read_only_bottom_close_and_rename { rename_if_different($name, *{$fh}->{final_name}); } +sub tab { + my ($l, $t) = @_; + $t .= "\t" x ($l - (length($t) + 1) / 8); + $t; +} + 1; |