diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-11-26 10:56:12 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2004-11-26 10:56:12 +0000 |
| commit | 375b6f9c3cf61249fbff2151731131e9a0b72a6c (patch) | |
| tree | 74c1ce1284f57367adcf1b6825863cb84ee152b6 /lib/Config.t | |
| parent | 06482b9023d4582a18f90fd15b1272b5f3df6fca (diff) | |
| download | perl-375b6f9c3cf61249fbff2151731131e9a0b72a6c.tar.gz | |
Fix Win32 breakage caused by changes 23535/23542.
p4raw-id: //depot/perl@23543
Diffstat (limited to 'lib/Config.t')
| -rw-r--r-- | lib/Config.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Config.t b/lib/Config.t index 982855499b..76c249dae4 100644 --- a/lib/Config.t +++ b/lib/Config.t @@ -223,7 +223,7 @@ foreach my $pain ($first, @virtual) { @result = Config::config_re($pain); is (scalar @result, 1, "single result for config_re('$pain')"); - like ($result[0], qr/^$pain=(['"])$Config{$pain}\1$/, # grr ' + like ($result[0], qr/^$pain=(['"])\Q$Config{$pain}\E\1$/, # grr ' "which is the expected result for $pain"); } |