This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5.004_69: Parsewords.pm: avoid undefined warnings
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 30 Jun 1998 11:40:22 +0000 (14:40 +0300)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Jul 1998 02:26:37 +0000 (02:26 +0000)
Message-Id: <199806300840.LAA04872@alpha.hut.fi>

p4raw-id: //depot/perl@1283

lib/Text/ParseWords.pm

index 95f0e9b..2414f80 100644 (file)
@@ -76,10 +76,12 @@ sub parse_line {
        }
         else {
            $unquoted =~ s/\\(.)/$1/g;
-           $quoted =~ s/\\(.)/$1/g if ($quote eq '"');
-           $quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'");
+           if (defined $quote) {
+               $quoted =~ s/\\(.)/$1/g if ($quote eq '"');
+               $quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'");
+            }
        }
-        $word .= ($quote) ? $quoted : $unquoted;
+        $word .= defined $quote ? $quoted : $unquoted;
  
         if (length($delim)) {
             push(@pieces, $word);