From 4021344d9464eb084ecec70eda3b4756d16a8e65 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Jourdois?= Date: Sun, 11 Jul 2010 13:19:41 +0200 Subject: [PATCH] Strip single quotes as well as double quotes. --- t/getopt.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/getopt.t b/t/getopt.t index 9834d16..c62f6c1 100755 --- a/t/getopt.t +++ b/t/getopt.t @@ -59,7 +59,7 @@ sub testFile # # Test we discovered some documented options. # - ok( $#documented > 1, "We found some options documented." ); + ok( $#documented > 1, "We found some options documented in $file." ); @@ -105,11 +105,11 @@ sub testFile #print " - strip comments : $o "; # - # Remove "" from around it. + # Remove "" or '' around it. # - if ( $o =~ /"([^"]+)"/ ) + if ( $o =~ /(["'])([^"']+)\1/ ) { - $o = $1; + $o = $2; } #print " - remove quotes : $o "; #