Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

"in memory" files don't call STORE method when tied #8972

p5pRT opened this issue Jul 11, 2007 · 4 comments

"in memory" files don't call STORE method when tied #8972

p5pRT opened this issue Jul 11, 2007 · 4 comments


Copy link

@p5pRT p5pRT commented Jul 11, 2007

Migrated from (status was 'resolved')

Searchable as RT43789$

Copy link
Collaborator Author

@p5pRT p5pRT commented Jul 11, 2007


Created by

If we open a file handle to an "in memory" file held in a perl scalar, and then tie that scalar, we don't see the STORE method called on writes to the filehandle, though they still work on normal STORE events.


{ package printHook;
  sub hook {
  my $myout;

  # Redirect EXAMPLE filehandle to the variable.
  open EXAMPLE,'>',\$myout or die "Can't open EXAMPLE​: $!\n";
  # And tie the variable to this package
  tie $myout, "printHook", "";

  # Store to the variable directly
  $myout = "direct store";
  print "\$myout is​: \"$myout\"\n";

  # Store to the variable through the filehandle
  print EXAMPLE "write to myout variable..";
  # We didn't see our STORE method called?
  print "\$myout is​: \"$myout\"\n";
  my ($pkg) = @​_;
  my $obj = [];
  bless $obj, $pkg;
  return $obj;
  sub STORE {
  my ($obj, $val) = @​_;
  print STDERR "Wrote var <- $val\n";
  $obj->[0] = $val;
  return $val;
  sub FETCH { return $_[0][0]; }


The output is​:

Wrote var <- direct store
$myout is​: "direct store"
$myout is​: "write to myout variable.."

Expected output​:

Wrote var <- direct store
$myout is​: "direct store"
Wrote var <- write to myout variable..
$myout is​: "write to myout variable.."

Perl Info


Site configuration information for perl v5.8.8:

Configured by Debian Project at Wed Dec  6 23:17:41 UTC 2006.

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
    osname=linux, osvers=, archname=i486-linux-gnu-thread-multi
    uname='linux saens #1 smp sat nov 25 13:39:52 est 2006 i686 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.8 -Dsitearch=/usr/local/lib/perl/5.8.8 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
    ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian 4.1.1-20)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
    perllibs=-ldl -lm -lpthread -lc -lcrypt
    libc=/lib/, so=so, useshrplib=true,
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:

@INC for perl v5.8.8:

Environment for perl v5.8.8:
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PERL_BADLANG (unset)

Copy link
Collaborator Author

@p5pRT p5pRT commented May 5, 2010

From @iabyn

Now fixed in blead by commit

Copy link
Collaborator Author

@p5pRT p5pRT commented May 5, 2010

The RT System itself - Status changed from 'new' to 'open'

Copy link
Collaborator Author

@p5pRT p5pRT commented May 5, 2010

@iabyn - Status changed from 'open' to 'resolved'

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant
You can’t perform that action at this time.