Changeset 1641

Show
Ignore:
Timestamp:
09/02/06 02:12:01
Author:
miyagawa
Message:

t::TestPlagger?: allow string rather than regexp

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/t/TestPlagger.pm

    r1497 r1641  
    135135sub file_doesnt_contain() { 
    136136    my($file, $pattern) = @_; 
     137    $pattern = qr/\Q$pattern\E/ unless ref $pattern; 
    137138 
    138139    my $content = slurp_file($file) or return fail("$file: $!");