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

For AS: build 517 bug (truncate() and strict) #173

Closed
p5pRT opened this issue Jul 8, 1999 · 2 comments
Closed

For AS: build 517 bug (truncate() and strict) #173

p5pRT opened this issue Jul 8, 1999 · 2 comments

Comments

@p5pRT
Copy link

@p5pRT p5pRT commented Jul 8, 1999

Migrated from rt.perl.org#978 (status was 'resolved')

Searchable as RT978$

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jul 8, 1999

From jeffp@friday.crusoe.net

This may be more appropriate for the ActiveState folks, so I will send
this to them as well, when I find an appropriate email address.

Running Perl5.005_03, build 517 on a Windows 95 box, I get an error when
running the following code​:

  d​:\my_perl>perl -Mstrict
  open FH, "+<file" or die "cannot open file​: $!";
  truncate FH, 0;
  close FH;

  Bareword "FH" not allowed while "strict subs" in use at - line 2.
  Execution of - aborted due to compilation errors.

I don't know what to make of that, other than it being a bug. The code
works perfectly fine in Perl 5.005_02 on the Unix box I'm currently on.

Perl Info
[Note: had to, perlbug was not working on PC]




Summary of my perl5 (5.0 patchlevel 5 subversion 03) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-object
    uname=''
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cl.exe', optimize='-Od -MD -DNDEBUG -TP -GX', gccversion=
    cppflags='-DWIN32'
    ccflags ='-Od -MD -DNDEBUG -TP -GX -DWIN32 -D_CONSOLE -DNO_STRICT  -DHAVE_DES_FCRYPT -DPERL_OBJECT'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release -machine:x86'
    libpth="d:\usr\lib\core" 
    libs= oldnames.lib kernel32.lib user32.lib gdi32.lib  winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib  oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib PerlCRT.lib
    libc=d:\usr\lib\core\PerlCRT.lib, so=dll, useshrplib=yes, libperl=perlcore.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release -machine:x86'


Characteristics of this binary (from libperl): 
  Locally applied patches:
  	ActivePerl Build 517
  Built under MSWin32
  Compiled at May 26 1999 21:29:03
  @INC:
    D:/usr/lib
    D:/usr/site/lib
    .

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Nov 28, 2003

From The RT System itself

not reproducable in AS 613

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

Successfully merging a pull request may close this issue.

None yet
1 participant