- Timestamp:
- Jan 24, 2013 9:06:25 PM (12 years ago)
- Branches:
- master, trunk
- Children:
- cdcfe90
- Parents:
- 68d6d5b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
misc/findcombinable.pl
r68d6d5b r1f4b1b5 13 13 checkdir($top); 14 14 15 sub combinable{15 sub match { 16 16 my $str = shift @_; 17 17 … … 37 37 while (my $entry = shift @entries) { 38 38 next if ($entry =~ /^\.+$/); 39 if ( combinable($entry)) {39 if (match($entry)) { 40 40 print "'$target/$entry' can be composed\n"; 41 41 next;
Note: See TracChangeset
for help on using the changeset viewer.