11# !/usr/bin/env perl
22
3- use 5.010 ;
3+ use 5.014 ;
44use warnings;
55use autodie;
6+ use re ' /msx' ;
67
78use Carp;
89use File::Basename;
@@ -42,7 +43,7 @@ sub test_intermediate_state {
4243 dir_exists_ok( File::Spec-> join ( dirname($impostor_file ) ) );
4344 file_exists_ok($impostor_file );
4445
45- file_contains_like( $impostor_file , qr {$original_content } msx );
46+ file_contains_like( $impostor_file , qr {$original_content } );
4647 }
4748
4849 return $managed_path , %options ;
@@ -92,15 +93,15 @@ subtest 'ensure presence of an existing file' => sub {
9293 file_exists_ok($managed_file );
9394 file_not_exists_ok($impostor_file );
9495
95- file_contains_like( $managed_file , qr {$original_content } msx );
96+ file_contains_like( $managed_file , qr {$original_content } );
9697
9798 file $managed_file , ensure => ' present' ; # # no critic ( ProhibitDuplicateLiteral )
9899
99100 file_exists_ok($managed_file );
100101 file_exists_ok($impostor_file );
101102
102- file_contains_like( $managed_file , qr {$original_content } msx );
103- file_contains_like( $impostor_file , qr {$original_content } msx );
103+ file_contains_like( $managed_file , qr {$original_content } );
104+ file_contains_like( $impostor_file , qr {$original_content } );
104105
105106 cleanup();
106107};
@@ -114,7 +115,7 @@ subtest 'create new file with content' => sub {
114115 file_not_exists_ok($managed_file );
115116 file_exists_ok($impostor_file );
116117
117- file_contains_like( $impostor_file , qr {$impostor_content } msx );
118+ file_contains_like( $impostor_file , qr {$impostor_content } );
118119
119120 cleanup();
120121};
@@ -125,15 +126,15 @@ subtest 'modify existing file' => sub {
125126 file_exists_ok($managed_file );
126127 file_not_exists_ok($impostor_file );
127128
128- file_contains_like( $managed_file , qr {$original_content } msx );
129+ file_contains_like( $managed_file , qr {$original_content } );
129130
130131 file $managed_file , content => $impostor_content ;
131132
132133 file_exists_ok($managed_file );
133134 file_exists_ok($impostor_file );
134135
135- file_contains_like( $managed_file , qr {$original_content } msx );
136- file_contains_like( $impostor_file , qr {$impostor_content } msx );
136+ file_contains_like( $managed_file , qr {$original_content } );
137+ file_contains_like( $impostor_file , qr {$impostor_content } );
137138
138139 cleanup();
139140};
@@ -144,7 +145,7 @@ subtest 'delete existing file' => sub {
144145 file_exists_ok($managed_file );
145146 file_not_exists_ok($impostor_file );
146147
147- file_contains_like( $managed_file , qr {$original_content } msx );
148+ file_contains_like( $managed_file , qr {$original_content } );
148149
149150 file $managed_file , ensure => ' absent' ;
150151
0 commit comments