File tree Expand file tree Collapse file tree 1 file changed +12
-12
lines changed Expand file tree Collapse file tree 1 file changed +12
-12
lines changed Original file line number Diff line number Diff line change 1
1
# !./perl
2
- BEGIN {
3
- chdir ' t' if -d ' t' ;
4
- require ' ./test.pl' ; # for fresh_perl_is() etc
5
- set_up_inc(' ../lib' , ' .' , ' ../ext/re' );
6
- require ' ./charset_tools.pl' ;
7
- require ' ./loc_tools.pl' ;
8
- }
9
-
10
- use Config;
11
-
12
- use strict;
13
- use warnings;
14
2
15
3
# This file is a place for tests that fail at the time they are added here.
16
4
#
@@ -26,6 +14,18 @@ use warnings;
26
14
# it is redundant to the test demonstrating the bug that was intentionally
27
15
# fixed, so can be removed altogether.)
28
16
17
+ BEGIN {
18
+ chdir ' t' if -d ' t' ;
19
+ require ' ./test.pl' ; # for fresh_perl_is() etc
20
+ set_up_inc(' ../lib' , ' .' , ' ../ext/re' );
21
+ require ' ./charset_tools.pl' ;
22
+ require ' ./loc_tools.pl' ;
23
+ }
24
+
25
+ use Config;
26
+ use strict;
27
+ use warnings;
28
+
29
29
my $switches = " " ;
30
30
31
31
my $is_debugging_build = $Config {cppflags } =~ / -DDEBUGGING/ ;
You can’t perform that action at this time.
0 commit comments