Changeset 188 in lab


Ignore:
Timestamp:
Jan 24, 2013 9:06:25 PM (11 years ago)
Author:
mitty
Message:
  • change function name to reuse code easily
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/misc/findcombinable.pl

    r187 r188  
    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.