Changeset 1f4b1b5 in lab.git for misc/findcombinable.pl


Ignore:
Timestamp:
Jan 24, 2013 9:06:25 PM (12 years ago)
Author:
mitty <mitty@…>
Branches:
master, trunk
Children:
cdcfe90
Parents:
68d6d5b
Message:
  • change function name to reuse code easily

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@188 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:
1 edited

Legend:

Unmodified
Added
Removed
  • misc/findcombinable.pl

    r68d6d5b r1f4b1b5  
    1313checkdir($top); 
    1414 
    15 sub combinable { 
     15sub match { 
    1616    my $str = shift @_; 
    1717     
     
    3737    while (my $entry = shift @entries) { 
    3838        next if ($entry =~ /^\.+$/); 
    39         if (combinable($entry)) { 
     39        if (match($entry)) { 
    4040            print "'$target/$entry' can be composed\n"; 
    4141            next; 
Note: See TracChangeset for help on using the changeset viewer.