Changeset 21564 for lang/perl/Module-Setup

Timestamp:

10/18/08 03:13:23 (5 years ago)

Author:

yappo

Message:

add test for core

Location:

lang/perl/Module-Setup/trunk

Files:

• lib/Module/Setup.pm (modified) (2 diffs)
• t/010_core/load_argv.t (added)
• t/010_core/setup_base_dir.t (added)

lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

@@ -136 +136 @@
 
     # create skeleton
-    return unless $self->create_skeleton;
+    $self->create_skeleton;
     $self->call_trigger( 'after_create_skeleton' );
 
@@ -336 +336 @@
             };
         } else {
+            my $body = $type->path_to($file)->slurp;
             push @{ $template }, +{
                 $path_name => join('/', @path),
-                template   => $type->path_to($file)->slurp || '',
+                template   => $body,
             };
         }