Select Code to Download

sub dequote {
   local $_ = @_ ? $_[0] : $_;
...
   s/\\(.)/$1/g;
   return $_;
}

use strict;
use warnings;
...

print dequote, "\n"
   foreach $var;

STORE "John \"Foo\" Bar"
FETCH
...
FETCH
STORE
Use of uninitialized value in print at 561931.pl line 25.

use strict;
use warnings;
...
dequote('"John \"Foo\" Bar"');

print(pos(), "\n");

2
Use of uninitialized value in print at 561931.pl line 18.

2
2

sub dequote {
  #local $_ = @_ ? $_[0] : $_;   # XXX
...
   s/\\(.)/$1/g;
   return $_;
}

STORE "John \"Foo\" Bar"
FETCH
John "Foo" Bar

2
2