Changeset 14
- Timestamp:
- 12/10/06 20:12:31 (2 years ago)
- Files:
-
- trunk/core/Kwiki/lib/Kwiki/Command.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/core/Kwiki/lib/Kwiki/Command.pm
r9 r14 73 73 chdir io->dir(shift || '.')->assert->open->name; 74 74 my $noun = shift; 75 my @all_files = grep { not /^\.[\\\/]?(lib|Makefile )$/ } io('.')->all;75 my @all_files = grep { not /^\.[\\\/]?(lib|Makefile|\.svn)$/ } io('.')->all; 76 76 die "Can't make new $noun in a non-empty directory\n" 77 77 if @all_files;
