Lines Matching refs:files
127 my %files = ();
130 $files{lc $_} = $File::Find::name;
132 ok( $files{'dummy.pm'}, ' Dummy.pm installed' );
133 ok( $files{'liar.pm'}, ' Liar.pm installed' );
134 ok( $files{'.packlist'}, ' packlist created' );
135 ok( $files{'perllocal.pod'},' perllocal.pod created' );
147 %files = ();
148 find( sub { $files{$_} = $File::Find::name; }, 'elsewhere' );
149 ok( $files{'Dummy.pm'}, ' Dummy.pm installed' );
150 ok( $files{'Liar.pm'}, ' Liar.pm installed' );
151 ok( $files{'.packlist'}, ' packlist created' );
152 ok( $files{'perllocal.pod'},' perllocal.pod created' );
167 %files = ();
170 $files{$_} = $File::Find::name;
172 ok( $files{'Dummy.pm'}, ' Dummy.pm installed' );
173 ok( $files{'Liar.pm'}, ' Liar.pm installed' );
174 ok( $files{'.packlist'}, ' packlist created' );
175 ok( $files{'perllocal.pod'},' perllocal.pod created' );
177 ok( open(PERLLOCAL, $files{'perllocal.pod'} ) ) ||
178 diag("Can't open $files{'perllocal.pod'}: $!");
185 # ok( open(PACKLIST, $files{'.packlist'} ) ) ||
186 # diag("Can't open $files{'.packlist'}: $!");
208 %files = ();
209 find( sub { $files{$_} = $File::Find::name; }, 'other/elsewhere' );
210 ok( $files{'Dummy.pm'}, ' Dummy.pm installed' );
211 ok( $files{'Liar.pm'}, ' Liar.pm installed' );
212 ok( $files{'.packlist'}, ' packlist created' );
213 ok( $files{'perllocal.pod'},' perllocal.pod created' );