This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Quote string argument in example -- necessary if using strict subs
[perl5.git] / ext / SDBM_File / SDBM_File.pm
index 9b7acc1..a2d4df8 100644 (file)
@@ -24,7 +24,7 @@ SDBM_File - Tied access to sdbm files
 
  use SDBM_File;
 
- tie(%h,SDBM_File,'Op.dbmx', O_RDWR|O_CREAT, 0640);
+ tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
 
  untie %h;