s/perl -w/use diagnostics/ so stat it get removed from package at

build time

1 files changed, 2 insertions, 1 deletions

diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 1481eafca..8af36b163 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use lib qw(/usr/lib/libDrakX);
 
 use strict;
+use diagnostics;
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
 use common;
 use interactive;