From 8d15407e2f4483181b0f0eb37c60bcd5460b2cd9 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Wed, 8 Jun 2011 12:15:18 -0500
Subject: [PATCH] tools: Remove warning from newer versions of Perl.

Replace \1 with $1 in substitution strings.
---
 src/tools/fullPathName.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tools/fullPathName.pl b/src/tools/fullPathName.pl
index da921f6dc..27fc57a21 100644
--- a/src/tools/fullPathName.pl
+++ b/src/tools/fullPathName.pl
@@ -29,7 +29,7 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1;
 my $path = AbsPath(shift);
 
 # Escape shell special characters unless on Windows, which doesn't allow them.
-$path =~ s/([!"\$&'\(\)*,:;<=>?\[\\\]^`{|}])/\\\1/g unless $^O eq 'MSWin32';
+$path =~ s/([!"\$&'\(\)*,:;<=>?\[\\\]^`{|}])/\\$1/g unless $^O eq 'MSWin32';
 
 print "$path\n";