7 use File::Basename qw(dirname);
1165 while(my($from, $to) = each %$fromto) {
1187 my $dirname = dirname($to);

##</code><code>##

7 use Carp ();
1165 Filenames with the extension .pm are autosplit into the $autosplit_dir.
1187 next;

##</code><code>##

"C:Strawberry\perl\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib\lib', 'blib\arch')" t/*.t

##</code><code>##

"C:\Strawberry\perl\bin\perl.exe" -MExtUtils::Command::MM -e cp_nonempty -- Magick.bs blib\arch\auto\Image\Magick\Magick.bs 644

##</code><code>##

t/blob.t .......... ok
t/composite.t ..... ok
t/filter.t ........ ok
t/getattribute.t .. ok
t/montage.t ....... ok
t/ping.t .......... ok
t/read.t .......... ok
t/setattribute.t .. ok
t/write.t ......... ok
All tests successful.
Files=9, Tests=273,  2 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)
Result: PASS