Re: Hitting a line limit while reading a file

2007-03-13 Thread Bill Luebkert
Howard Maher wrote:
> I was simply counting the number of lines in a 2 gig file, printing to STDERR 
> every 10,000 lines to indicate the program was making progress, but the 
> program stopped at 12,960,000 lines read... an hour and a half later it still 
> hadn't budged...  
> What kind of memory issue could I have hit?
> This is a Windows 2000 box with 512 Meg of RAM.
> 
> Code that was executing:
> 
> open(INPUT,"$infilename") or die "couldn't open $infilename for read, stopped 
> at: $!";
> my $line_num;
> while (  )
> {
> $line_num++;
> print STDERR "$line_num\r" unless $line_num%1;
> } 

This code takes 5 secs on my AMD 64 3200+.  There should be no way this
would hang and memory shouldn't be an issue since you're only reading a
line at a time unless you have some sort of real system problem.  You
could add a binmode IN just to avoid any newline issues and see
if it makes a difference.

use strict;
use warnings;

my $infilename = 'E:/tmp/registry-03-19-05.txt'; # ASCII registry dump

open IN, $infilename or die "open $infilename: $! ($^E)";
# binmode IN;   # try this also

my $pt0 = Win32::GetTickCount ();   # start timer

my $lines;
while () {
++$lines;
print STDERR "$lines\r" unless $lines % 1;
}
close IN;

printf STDERR "\nFound %u lines in %.3f seconds\n", $lines,
   (Win32::GetTickCount () - $pt0) / 1000;

__END__

Output:
Found 1025713 lines in 5.250 seconds
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Hitting a line limit while reading a file

2007-03-13 Thread Vladimir Zelinski
A while ago I had a weird problem on Perl for Windows.
My program exited from while() loop because of
a character in the data file which was treated as EOF.
After removing the character from the data file loop
continued up to the very end. I didn't have time to
investigate the problem and I can't say what the
character was. Try to look at data where your loop is
terminated.

Thank you,
Vladimir
--- Sisyphus <[EMAIL PROTECTED]> wrote:

> 
> - Original Message - 
> From: "Howard Maher" <[EMAIL PROTECTED]>
> To: 
> Sent: Wednesday, March 14, 2007 5:34 AM
> Subject: Hitting a line limit while reading a file
> 
> 
> >I was simply counting the number of lines in a 2
> gig file, printing to
> >STDERR every 10,000 lines to indicate the program
> was making progress, but
> >the program stopped at 12,960,000 lines read... an
> hour and a half later it
> >still hadn't budged...
> > What kind of memory issue could I have hit?
> > This is a Windows 2000 box with 512 Meg of RAM.
> >
> > Code that was executing:
> >
> > open(INPUT,"$infilename") or die "couldn't open
> $infilename for read,
> > stopped at: $!";
> > my $line_num;
> > while (  )
> > {
> >$line_num++;
> >print STDERR "$line_num\r" unless
> $line_num%1;
> > }
> >
> 
> There's no need to count the lines yourself. The
> special variable $. does
> that for you. (See 'perldoc perlvar):
> 
> while() {
>print STDERR "$.\r" unless $. % 1;
> }
> 
> I don't know what the problem is, and I think it's
> unlikely that change will
> fix things. But it's something you could try.
> 
> Cheers,
> Rob
> 
> 
> 
> ___
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Hitting a line limit while reading a file

2007-03-13 Thread Sisyphus

- Original Message - 
From: "Howard Maher" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, March 14, 2007 5:34 AM
Subject: Hitting a line limit while reading a file


>I was simply counting the number of lines in a 2 gig file, printing to
>STDERR every 10,000 lines to indicate the program was making progress, but
>the program stopped at 12,960,000 lines read... an hour and a half later it
>still hadn't budged...
> What kind of memory issue could I have hit?
> This is a Windows 2000 box with 512 Meg of RAM.
>
> Code that was executing:
>
> open(INPUT,"$infilename") or die "couldn't open $infilename for read,
> stopped at: $!";
> my $line_num;
> while (  )
> {
>$line_num++;
>print STDERR "$line_num\r" unless $line_num%1;
> }
>

There's no need to count the lines yourself. The special variable $. does
that for you. (See 'perldoc perlvar):

while() {
   print STDERR "$.\r" unless $. % 1;
}

I don't know what the problem is, and I think it's unlikely that change will
fix things. But it's something you could try.

Cheers,
Rob



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: how to make it to run faster

2007-03-13 Thread Su, Yu (Eugene)
Beautiful!!! It cuts the run time from ~43 seconds to less than 4 seconds for 
one of my data files!
I knew someone out there can do a better job. For this particular purpose, 
using vec() and bitwise operation instead of unpacking and packing is a much 
better way.

Thank Tobias for this excellent solution.

-Eugene

-Original Message-
From: Tobias Hoellrich [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 13, 2007 2:35 PM
To: Su, Yu (Eugene)
Cc: Perl-Win32-Users@listserv.ActiveState.com
Subject: RE: how to make it to run faster


This one runs about 10-15 times faster on my system. Toggle $useVec to
alternate between your old version and the one that uses vec(). Please
not that vec() is big-endian. I verified that the output of both
versions are identical.

Hope that helps
  Tobias

use strict;
use warnings;
my $header;
my $header_size=8*1024;
my $body;
my $body_size=2048*2048*2;
my $image=$ARGV[0];
open(FH, "+<$image") or die "\nCan not open $image for updating: $!\n"; 
read(FH, $header, $header_size) == $header_size or print "\nshort read:
$!\n";
read(FH, $body, $body_size) == $body_size or print "\nshort read: $!\n";

my $useVec=1;

if($useVec) {
  my $changed=0;
  for my $i (0 .. $body_size/2) {
next unless (vec($body,$i,16)>>8 & 1);
$changed++;
vec($body,$i,16) = 1<<8;
  }
  if($changed) {
seek FH, 0, 0; 
print FH $header, $body; 
close(FH);
  }
} else {
  my $body_new; 
  my $p;
  foreach $p (unpack("S*",$body)) {
if ($p&1) {$p=1};
$body_new=$body_new.pack("S",$p); # packing is slow ~40 seconds
  } 
  seek FH, 0, 0; 
  print FH $header, $body_new; 
  close(FH); 
}

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Bharucha, Nikhil
Sent: Tuesday, March 13, 2007 2:54 PM
To: Su, Yu (Eugene); Perl-Win32-Users@listserv.ActiveState.com
Subject: RE: how to make it to run faster

I believe the pack function is implemented in C so I don't know how much
faster you can write it...
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: how to make it to run faster

2007-03-13 Thread Tobias Hoellrich
This one runs about 10-15 times faster on my system. Toggle $useVec to
alternate between your old version and the one that uses vec(). Please
not that vec() is big-endian. I verified that the output of both
versions are identical.

Hope that helps
  Tobias

use strict;
use warnings;
my $header;
my $header_size=8*1024;
my $body;
my $body_size=2048*2048*2;
my $image=$ARGV[0];
open(FH, "+<$image") or die "\nCan not open $image for updating: $!\n"; 
read(FH, $header, $header_size) == $header_size or print "\nshort read:
$!\n";
read(FH, $body, $body_size) == $body_size or print "\nshort read: $!\n";

my $useVec=1;

if($useVec) {
  my $changed=0;
  for my $i (0 .. $body_size/2) {
next unless (vec($body,$i,16)>>8 & 1);
$changed++;
vec($body,$i,16) = 1<<8;
  }
  if($changed) {
seek FH, 0, 0; 
print FH $header, $body; 
close(FH);
  }
} else {
  my $body_new; 
  my $p;
  foreach $p (unpack("S*",$body)) {
if ($p&1) {$p=1};
$body_new=$body_new.pack("S",$p); # packing is slow ~40 seconds
  } 
  seek FH, 0, 0; 
  print FH $header, $body_new; 
  close(FH); 
}

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Bharucha, Nikhil
Sent: Tuesday, March 13, 2007 2:54 PM
To: Su, Yu (Eugene); Perl-Win32-Users@listserv.ActiveState.com
Subject: RE: how to make it to run faster

I believe the pack function is implemented in C so I don't know how much
faster you can write it...
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: how to make it to run faster

2007-03-13 Thread Bharucha, Nikhil
I believe the pack function is implemented in C so I don't know how much
faster you can write it...

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Su, Yu (Eugene)
Sent: Tuesday, March 13, 2007 3:14 PM
To: Perl-Win32-Users@listserv.ActiveState.com
Subject: RE: how to make it to run faster

Hi all,

I wrote a script to update a binary data file. The file is a 2048x2048
unsigned-short array encoded in little-endian + 8K header. All values
should be even. However, there are some data corrupted with odd values.
The task is to set all odd numbers to 1.

I wrote a simple script which did the job, but it was too slow. It took
over 40 seconds on my 5 year old PC. I wonder if there is better way to
make it run faster.

Thanks for help.

-Eugene
  

 code snippet #

use strict;
use warnings;
my $header;
my $header_size=8*1024;
my $body;
my $body_size=2048*2048*2;
my $image=$ARGV[0];
open(FH, "+<$image") or die "\nCan not open $image for updating: $!\n";
read(FH, $header, $header_size) == $header_size or print "\nshort read:
$!\n";
read(FH, $body, $body_size) == $body_size or print "\nshort read: $!\n";
my $body_new;
my $p;
foreach $p (unpack("S*",$body)) {
if ($p&1) {$p=1};
$body_new=$body_new.pack("S",$p); # packing is slow ~40 seconds
}
seek FH, 0, 0;
print FH $header, $body_new;
close(FH);
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: how to make it to run faster

2007-03-13 Thread Ted Schuerzinger
"Su, Yu (Eugene)" <[EMAIL PROTECTED]> graced perl with these words
of wisdom: 

> I wrote a simple script which did the job, but it was too slow. It
> took over 40 seconds on my 5 year old PC. I wonder if there is better
> way to make it run faster. 

A faster processor?  :-p
 
Are the 40 seconds of your life really that critical?  ;-)

And seriously, would optimizing the code have taken at least 40 seconds 
longer than writing this batch of code?  If so, then you wouldn't save any 
time.

-- 
Ted 
Hmmm  Eternal happiness for one dollar?  [Pauses] On second thought, 
I'd be happier *with* the dollar. --Montgomery Burns

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: how to make it to run faster

2007-03-13 Thread Su, Yu (Eugene)
Hi all,

I wrote a script to update a binary data file. The file is a 2048x2048 
unsigned-short array encoded in little-endian + 8K header. All values should be 
even. However, there are some data corrupted with odd values. The task is to 
set all odd numbers to 1.

I wrote a simple script which did the job, but it was too slow. It took over 40 
seconds on my 5 year old PC. I wonder if there is better way to make it run 
faster.

Thanks for help.

-Eugene
  

 code snippet #

use strict;
use warnings;
my $header;
my $header_size=8*1024;
my $body;
my $body_size=2048*2048*2;
my $image=$ARGV[0];
open(FH, "+<$image") or die "\nCan not open $image for updating: $!\n";
read(FH, $header, $header_size) == $header_size or print "\nshort read: $!\n";
read(FH, $body, $body_size) == $body_size or print "\nshort read: $!\n";
my $body_new;
my $p;
foreach $p (unpack("S*",$body)) {
if ($p&1) {$p=1};
$body_new=$body_new.pack("S",$p); # packing is slow ~40 seconds
}
seek FH, 0, 0;
print FH $header, $body_new;
close(FH);
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


What to do when perl.exe bombs???

2007-03-13 Thread Jon Bjornstad
Greetings,

I have a large Win32 Perl app using Tk and lots
of other modules.   It generally runs just fine
but occasionally it bombs saying that there
was an error in perl.exe.

It shows a system dump of some sort and asks
if I want to send it to Microsoft.I decline because
I doubt that anyone would be motivated to
to investigate my problem.   (True?)

Since this sort of error is outside the 'Perl domain'
I have no idea what to do about it.There doesn't
seem to be a way to copy the system dump/error report
for inclusion in an email to others.

Any recommendations?

Thank you so much,
Jon

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: localtime failing on DST change

2007-03-13 Thread Bill Luebkert
Dial, Joe wrote:
>  
> Hello $Bill,
> I love reading your answers to other people's problems.  I hope I can
> help you.
> Microsoft announced that there is a patch to the MSVCRT.DLL which may be
> used by the perl executable.
> I don't know the windows equivalent to ldd to be sure MSVCRT.DLL is used
> by perl, but if it is, then Microsoft's
> KB article number 932950  (URL: http://support.microsoft.com/kb/932590)
> seems directly related to the issue
> you describe.

I downloaded the fix and it seems to be fixed now although it took a
bit for the system clock to sync up as DST.

Jan Dubois wrote:
 >
 > This is expected if you have the TZ environment variable set because
 > Microsoft didn't release an updated MSVCRT.dll.
 >
 > If you don't use TZ, then DST _should_ be correct for the current year,
 > but wrong for timestamps in the past.

Interesting, if I now unset the TZ ENV vrbl, it still works.  I guess
the fix E:/Tmp/WindowsXP-KB932590-x86-ENU.exe may have handled that.

I found this file:
D:/WINDOWS/WinSxS/Manifests/x86_Microsoft.Windows.CPlusPlusRuntime_6595b64144ccf1df_7.0.2600.3085_x-ww_e059201c.Manifest

Which contains:


 
 
 


And a log file for the KB which contained:
20.235: Copied file:  D:\WINDOWS\system32\msvcrt.dll

which looks like a new CRT was downloaded:
-rw-rw-rw-   1 user group  343040 Feb 19 03:32 msvcrt.dll

So I guess all is well for now.

Thanks to you both for the info.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: localtime failing on DST change

2007-03-13 Thread Chris O
On Tue, 13 Mar 2007, Bill Luebkert wrote:
> My 'localtime' function output doesn't reflect DST since the Sunday
> changeover.

Jan Wrote:
>This is expected if you have the TZ environment variable set because
>Microsoft didn't release an updated MSVCRT.dll.

Works fine for me on windows... but I'm having the same issue on Fedora. :-(

- Chris
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: localtime failing on DST change

2007-03-13 Thread Jan Dubois
On Tue, 13 Mar 2007, Bill Luebkert wrote:
> My 'localtime' function output doesn't reflect DST since the Sunday
> changeover.

This is expected if you have the TZ environment variable set because
Microsoft didn't release an updated MSVCRT.dll.

If you don't use TZ, then DST _should_ be correct for the current year,
but wrong for timestamps in the past.

Cheers,
-Jan

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: localtime failing on DST change

2007-03-13 Thread Dial, Joe
 
Hello $Bill,
I love reading your answers to other people's problems.  I hope I can
help you.
Microsoft announced that there is a patch to the MSVCRT.DLL which may be
used by the perl executable.
I don't know the windows equivalent to ldd to be sure MSVCRT.DLL is used
by perl, but if it is, then Microsoft's
KB article number 932950  (URL: http://support.microsoft.com/kb/932590)
seems directly related to the issue
you describe.

Hope this helps,
Joe Dial
"Long Time Lurker"

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Bill Luebkert
Sent: Tuesday, March 13, 2007 10:25 AM
To: [EMAIL PROTECTED]
Cc: Jan Dubois
Subject: localtime failing on DST change

My 'localtime' function output doesn't reflect DST since the Sunday
changeover.

System: XP Pro; Perl B811

The earlier DST change time seems to be picked up OK by Windoze clock.
There
was some mention of the table changes by Microsoft I believe and there
is some
info at http://support.microsoft.com/gp/dst_hu1 based on user type.

GetTimeZoneInformation API call looks OK to me - here's all the
pertinent
output:

ActiveTime:
'-52588' (BIN)
DaylightBias:
'-60' (DW)
StandardBias:
'0' (DW)
DaylightName:
'Pacific Daylight Time' (SZ)
StandardStart:
'720896' (BIN)
ActiveTimeBias:
'420' (DW)
Bias:
'480' (DW)
DaylightStart:
'196608' (BIN)
StandardName:
'Pacific Standard Time' (SZ)

GetTimeZoneInformation ret: 2 (Daylight Savings Time)

UTC bias from localtime: 480

StandardName: Pacific Standard Time
SYear: 0
SMonth: 11
SDayOfWeek: 0
SDay: 1
SHour: 2
SMinute: 0
SSecond: 0
SMilliseconds: 0
StandardBias: 0

DaylightName: Pacific Daylight Time
DYear: 0
DMonth: 3
DDayOfWeek: 0
DDay: 2
DHour: 2
DMinute: 0
DSecond: 0
DaylightBias: -60

StandardDate: first Sunday of November at 2
StandardDate-raw: 0-11-0-1-2-0-0-0
DaylightDate: second Sunday of March at 2
DaylightDate-raw: 0-3-0-2-2-0-0-0

However localtime returns the following:

Perl localtime: Tue Mar 13 05:56:54 2007

Actual time is 06:56 PDT not 05:56 PST.

GMT  : 54 56 13 13 2 107 2 71 0
GMT  : yr=2007, mo=3, day=13, hr=13, min=56, sec=54, DST=no

Local: 54 56 5 13 2 107 2 71 0
Local: yr=2007, mo=3, day=13, hr=5, min=56, sec=54, DST=no

Note the isdst field (last element) is set to 0 (off) and the time is
off
by an hour.

Registry SYSTEM\\CurrentControlSet\\Control\\TimeZoneInformation shows
the
following values:

ActiveTime:
'-52588' (BIN)
DaylightBias:
'-60' (DW)
StandardBias:
'0' (DW)
DaylightName:
'Pacific Daylight Time' (SZ)
StandardStart:
'720896' (BIN)
ActiveTimeBias:
'420' (DW)
Bias:
'480' (DW)
DaylightStart:
'196608' (BIN)
StandardName:
'Pacific Standard Time' (SZ)

Microsoft has this info
http://msdn2.microsoft.com/en-us/vstudio/bb264729.aspx
and other Q&A :

Q: I'm a C++ developer who uses the TZ environment variable,
what does this
mean to me?

A: For customers who rely on the TZ environment variable for the
DST
information, they will get outdated DST information for 2007 and
beyond (i.e.,
they will get DST information according to the previous system).
Microsoft is
currently working on a fix for this issue and will post
information about its
availability on the Visual Studio Support page. In the interim,
developers are
advised to test their applications to determine the impact of
the DST update
on their applications. This issue is also fixed in Visual Studio
code name
"Orcas".
Support page:
http://msdn2.microsoft.com/en-us/vstudio/aa718682.aspx
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


localtime failing on DST change

2007-03-13 Thread Bill Luebkert
My 'localtime' function output doesn't reflect DST since the Sunday changeover.

System: XP Pro; Perl B811

The earlier DST change time seems to be picked up OK by Windoze clock.  There
was some mention of the table changes by Microsoft I believe and there is some
info at http://support.microsoft.com/gp/dst_hu1 based on user type.

GetTimeZoneInformation API call looks OK to me - here's all the pertinent
output:

ActiveTime:
'-52588' (BIN)
DaylightBias:
'-60' (DW)
StandardBias:
'0' (DW)
DaylightName:
'Pacific Daylight Time' (SZ)
StandardStart:
'720896' (BIN)
ActiveTimeBias:
'420' (DW)
Bias:
'480' (DW)
DaylightStart:
'196608' (BIN)
StandardName:
'Pacific Standard Time' (SZ)

GetTimeZoneInformation ret: 2 (Daylight Savings Time)

UTC bias from localtime: 480

StandardName: Pacific Standard Time
SYear: 0
SMonth: 11
SDayOfWeek: 0
SDay: 1
SHour: 2
SMinute: 0
SSecond: 0
SMilliseconds: 0
StandardBias: 0

DaylightName: Pacific Daylight Time
DYear: 0
DMonth: 3
DDayOfWeek: 0
DDay: 2
DHour: 2
DMinute: 0
DSecond: 0
DaylightBias: -60

StandardDate: first Sunday of November at 2
StandardDate-raw: 0-11-0-1-2-0-0-0
DaylightDate: second Sunday of March at 2
DaylightDate-raw: 0-3-0-2-2-0-0-0

However localtime returns the following:

Perl localtime: Tue Mar 13 05:56:54 2007

Actual time is 06:56 PDT not 05:56 PST.

GMT  : 54 56 13 13 2 107 2 71 0
GMT  : yr=2007, mo=3, day=13, hr=13, min=56, sec=54, DST=no

Local: 54 56 5 13 2 107 2 71 0
Local: yr=2007, mo=3, day=13, hr=5, min=56, sec=54, DST=no

Note the isdst field (last element) is set to 0 (off) and the time is off
by an hour.

Registry SYSTEM\\CurrentControlSet\\Control\\TimeZoneInformation shows the
following values:

ActiveTime:
'-52588' (BIN)
DaylightBias:
'-60' (DW)
StandardBias:
'0' (DW)
DaylightName:
'Pacific Daylight Time' (SZ)
StandardStart:
'720896' (BIN)
ActiveTimeBias:
'420' (DW)
Bias:
'480' (DW)
DaylightStart:
'196608' (BIN)
StandardName:
'Pacific Standard Time' (SZ)

Microsoft has this info http://msdn2.microsoft.com/en-us/vstudio/bb264729.aspx
and other Q&A :

Q: I’m a C++ developer who uses the TZ environment variable, what does 
this
mean to me?

A: For customers who rely on the TZ environment variable for the DST
information, they will get outdated DST information for 2007 and beyond 
(i.e.,
they will get DST information according to the previous system). 
Microsoft is
currently working on a fix for this issue and will post information 
about its
availability on the Visual Studio Support page. In the interim, 
developers are
advised to test their applications to determine the impact of the DST 
update
on their applications. This issue is also fixed in Visual Studio code 
name
“Orcas”.
Support page:   http://msdn2.microsoft.com/en-us/vstudio/aa718682.aspx
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs