fix diagnostics to report "our" vs "my" correctly

[p5sagit/p5-mst-13.2.git] / lib / diagnostics.pm

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 532505e..e6a9127 100755 (executable)
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -181,10 +181,10 @@ if ($^O eq 'VMS') {
 }
 @trypod = (
           "$archlib/pod/perldiag.pod",
-          "$privlib/pod/perldiag-$].pod",
+          "$privlib/pod/perldiag-$Config{version}.pod",
           "$privlib/pod/perldiag.pod",
           "$archlib/pods/perldiag.pod",
-          "$privlib/pods/perldiag-$].pod",
+          "$privlib/pods/perldiag-$Config{version}.pod",
           "$privlib/pods/perldiag.pod",
          );
 # handy for development testing of new warnings etc