Comments on: Can’t really override open()?

By: Laufeyjarson

Laufeyjarson — Mon, 13 Jun 2011 22:19:38 +0000

And now, no, I can’t get it to work either. I tried Perl 5.10.0, as installed by Apple, and a clean install of 5.12.3. It’s something I’m doing wrong, not Perl.

By: Laufeyjarson

Laufeyjarson — Mon, 13 Jun 2011 16:32:32 +0000

The suggestions in the comments above were enough to get me unblocked.

I’m on a wildly different machine now, and can’t get the open() replacement called. Hrm. Let me fiddle with it…

By: Antonio Bonifati

Antonio Bonifati — Mon, 13 Jun 2011 16:01:48 +0000

Hey Laufey, did you find a way that works?

I’m trying to do the same thing in Perl 5.12.3 and am at my wits’ end :(

By: Laufeyjarson

Laufeyjarson — Mon, 13 Dec 2010 01:09:22 +0000

Two smart commenters with the same idea. I forgot the alias effect there; I almost never depend on it.

I’ll have to give that a try and see what I can see. It really shouldn’t matter how it’s called then, as open will cope with whatever it gets.

I’ll have to fiddle with it when I have a moment. Traveling may put that off a bit. =)

By: brian d foy

brian d foy — Sun, 12 Dec 2010 08:48:47 +0000

It works when I use $_[0]. It’s just like any other modification of the elements of @_: what you put there affects the variable that you passed:

sub open(*;$@) {
unless( defined $_[0] ) {
CORE::open( $_[0], $mode, $filename );
}
}

By: Jay

Jay — Sun, 12 Dec 2010 08:03:06 +0000

USe $_[0], its an alias for the variable passed in
sub open(*;$@) {

print Dumper(\@_), “\n”;
CORE::open $_[0], $_[1], $_[2];

}